[分享]实现Quicktool Win32Api For Lisp编程接口
本帖最后由 作者 于 2007-5-13 18:33:06 编辑 <br /><br /> 如果你热爱Lisp，喜欢用Lisp编程,该模块对你的系统底层调用有帮助 <p> Win32Api (Windows 32Bit Application Programming Intertace)是由Microsoft公司开发的windows操作系统所提供的编写应用程序接口，包括动态链接库模块、库函数定义、常量定义和数据结构的集合，应用程序通过调用API 函数来实现操作系统提供的服务。但是Lisp可没像VB和VC那么幸运得到支持。<br/> 在AutoCAD图形平台下进行二次开发，简便高效的开发编程工具当然首选Lisp语言，从DOS时代的AutoCAD R10版本到现在的AutoCAD 2008，Lisp程序得到很好的支持，Lisp程序几乎不需更改源代码就能实现在不同版本间轻松转移，Lisp和AutoCAD图形数据库结合得很好，操作entity非常灵活，加上Lisp可以在AutoCAD的命令行得到解释，透明命令行非常方便程序排错和调试。<br/> Lisp编程也有不足的地方，不能像C语言的指针一样，直接对计算机的内存进行显式操作，不能用地址来传递参数，也就不能直接调用操作系统函数，系统操作只能借用VBA，ARX程序代理执行。许多编程者认为直接调用操作系统函数是不可能的事情。 <br/> Quicktool Win32Api For Lisp接口由陈秋荣编写，作为独立的模块供Lisp编程者使用，未经作者许可，不得用于商业软件的开发。<br/> 作者在研制快图设计软件的过程中，积累了大量的混合语言编程经验，解决了Lisp语言本身不能显式访问内存，无法和库模块链接，无法和Dll函数间传递参数地址等问题，成功实现了在Lisp中直接存取内存数据的方法。利用Quicktool Win32Api编程可以和VB、VC语言一样，直接调用Win32Api函数，可以读写二进制文件，可以使用操作系统的消息传递机制进行事件处理。原来需要借用VB、VBA或VC编程来完成的内容，均可以在Lisp中独立完成，解决了跨语言编程的带来的不便和困难。Quicktool Win32Api为广大的Lisp编程者打开了通往windows操作系统的大门！</p><p> Quicktool Win32Api包括QTWin32Api.VLX和Quicktool.dll两个文件。使用前先初始化接口，假设解压缩文件置于d:\quichtool目录中: <br/> (load "d:\\quichtool\\QTWin32Api.VLX") ;加载Lisp程序接口<br/> (Quicktool_Initialize "d:\\quichtool") ;初始化接口,参数指向Quicktool.dll文件所在目录</p><p> 接着你就可以直接调用Win32Api函数了，举些例子来说明如何使用。</p><p>1、让系统扬声器发出"嘀嘀"声：<br/> 让扬声器发声,使用Beep函数，Beep在kernel32.dll模块中，函数调用如下：<br/> (win32api "kernel32" "Beep" (list 4000 60))</p><p>2、隐藏任务栏中的"开始"按钮：<br/> (setq hwnd (win32api "user32" "FindWindowA" (list "Shell_TrayWnd" 0))) ;获得taskbar任务栏句柄<br/> (setq btnhwnd (win32api "user32" "FindWindowExA" (list hwnd 0 "BUTTON" 0))) ;从任务栏中找到"开始"按钮的句柄<br/> (win32api "user32" "ShowWindow" (list btnhwnd 0))) ;隐藏"开始"按钮</p><p> (win32api "user32" "ShowWindow" (list btnhwnd 1))) ;显示"开始"按钮</p><p>3、获得AutoCAD程序的窗口标题<br/> 要获得窗口标题，使用GetWindowText函数，GetWindowText在user32.dll模块中，函数名为GetWindowTextA。该函数需要3个参数，第1个参数为欲取得标题的窗口句柄hwnd，第2个参数用于存放标题字符串的变量的内存地址，第3个参数为字符串的变量的字节长度。<br/>(AcadApphwnd)取得AutoCAD程序的句柄，需要准备一个字符串变量str来传回函数执行后的结果，将str的内存地址作为参数，变量前面加个单引号'， MAX_STRING_LENGTH定义为常量256。函数表达式如下：<br/> (win32api "user32" "GetWindowTextA" (list (AcadApphwnd) 'str MAX_STRING_LENGTH))<br/> 函数执行后，变量str的值为AutoCAD程序窗口标题的字符串。</p><p>4、重新设置AutoCAD程序的窗口标题<br/> (win32api "user32" "SetWindowTextA" (list (AcadApphwnd) "新标题:Win32Api"))</p><p>5、在AutoCAD程序的窗口中挖个圆洞，透过洞口可以看到windows桌面 ;)<br/> (setq hwnd (acadapphwnd)) ;取得AutoCAD程序的句柄<br/> (win32api "user32" "GetWindowRect" (list hwnd 'rt)) ;得到AutoCAD程序窗口的区域<br/> (setq hframeRgn (win32api "gdi32" "CreateRectRgnIndirect" (list 'rt))) ;将矩形重建区域<br/> (setq hholeRgn (win32api "gdi32" "CreateEllipticRgn" (list 100 100 300 300))) ;创建圆洞区域<br/> (win32api "gdi32" "CombineRgn" (list hframeRgn hframeRgn hholeRgn 4)) ;将矩形区域减去圆洞区域，赋值给hframeRgn<br/> (win32api "user32" "SetWindowRgn" (list hwnd hframeRgn 1)) ;将hframeRgn区域重新设置给AutoCAD程序窗口<br/> 呵呵，试着移动AutoCAD程序窗口，透过洞口可以看到windows桌面!很神秘吧!<br/> </p><p>体验了有趣的Win32Api函数，这里作个小结：</p><p> 在Lisp中可以直接调用Win32Api函数，比VBA简单，调用前不需要事先申明函数，常量的定义以及数据类型和数据结构。Quicktool Win32Api函数分为四个部分：Api接口、库模块名、函数名和参数列表,Quicktool Win32Apia函数调用格式:</p><p> (Win32Api "库模块名" "函数名" (list 参数1 参数2……))</p><p> Win32Api---为所有windows Api函数的接口入口点，在左括号的一个位置出现<br/> "库模块名"---函数所在的DLL动态链接库文件名，大部分的函数包含在user32.dll、gdi32.dll、kernel32.dll、shell32.dll这几个模块中，文件的后缀名.dll可以省略，文件名大小写无关。<br/> "函数名"---函数别名必须区分大小写。对于含字符串操作的函数分为ANSI和Unicode两种版本，对应的函数为"函数A"与"函数W"，需要显式说明。<br/> (list 参数1 参数2……)---传递给函数的参数列表，每个函数传递的参数不尽相同，参考相关章节中的函数详解。</p><p> 说明：<br/> 1、如果函数不带任何参数，用nil<br/> 2、如果需要取回处理后的参数，将内存地址作为参数，变量前面加个单引号'<br/> 3、大部分的函数的返回值说明调用函数执行的成功与否的结果，0表示失败，其他的值表示调用函数执行成功</p><p> 想了解更多的API编程知识，可以参考《Programming Windows》一书，作者：Charles Petzold</p><wbr></wbr><wbr></wbr> 本帖最后由 baitang36 于 2024-11-23 07:49 编辑精华帖子，应该让它复活。
把反编译的源码发上来，刺激一下楼主，看看能不能复活？
实现原理是用vb写一个com，用vlisp调用com，这技术有点老了。
回帖是一种美德！感谢楼主的无私分享 谢谢 <p>谢楼主分享，真的好感谢哦</p> <p>感谢您的分享</p><p>让大家又学到新的知识<br/></p> 本帖最后由 作者 于 2007-5-16 18:48:14 编辑 <br /><br /> <p>的确很好！</p><p>这样吧，我上传一个《新编win32API函数大全》上来，希望能为这个帖子锦上添花。</p><p></p> 这简直就是天上掉馅饼! thks very much!<div>取之于“明”，用之于“明”。</div> 非常感谢 顶 呵呵！好东西，谢谢！！！ 顶!!!!!谢谢!好东西，谢谢！！！ 真的可以用！！！太厉害了！！！