[分享]实现Quicktool Win32Api For Lisp编程接口

aroom

如果你热爱Lisp，喜欢用Lisp编程,该模块对你的系统底层调用有帮助

    Win32Api (Windows 32Bit Application Programming Intertace)是由Microsoft公司开发的windows操作系统所提供的编写应用程序接口，包括动态链接库模块、库函数定义、常量定义和数据结构的集合，应用程序通过调用API 函数来实现操作系统提供的服务。但是Lisp可没像VB和VC那么幸运得到支持。
    在AutoCAD图形平台下进行二次开发，简便高效的开发编程工具当然首选Lisp语言，从DOS时代的AutoCAD R10版本到现在的AutoCAD 2008，Lisp程序得到很好的支持，Lisp程序几乎不需更改源代码就能实现在不同版本间轻松转移，Lisp和AutoCAD图形数据库结合得很好，操作entity非常灵活，加上Lisp可以在AutoCAD的命令行得到解释，透明命令行非常方便程序排错和调试。
    Lisp编程也有不足的地方，不能像C语言的指针一样，直接对计算机的内存进行显式操作，不能用地址来传递参数，也就不能直接调用操作系统函数，系统操作只能借用VBA，ARX程序代理执行。许多编程者认为直接调用操作系统函数是不可能的事情。   
    Quicktool Win32Api For Lisp接口由陈秋荣编写，作为独立的模块供Lisp编程者使用，未经作者许可，不得用于商业软件的开发。
    作者在研制快图设计软件的过程中，积累了大量的混合语言编程经验，解决了Lisp语言本身不能显式访问内存，无法和库模块链接，无法和Dll函数间传递参数地址等问题，成功实现了在Lisp中直接存取内存数据的方法。利用Quicktool Win32Api编程可以和VB、VC语言一样，直接调用Win32Api函数，可以读写二进制文件，可以使用操作系统的消息传递机制进行事件处理。原来需要借用VB、VBA或VC编程来完成的内容，均可以在Lisp中独立完成，解决了跨语言编程的带来的不便和困难。Quicktool Win32Api为广大的Lisp编程者打开了通往windows操作系统的大门！

    Quicktool Win32Api包括QTWin32Api.VLX和Quicktool.dll两个文件。使用前先初始化接口，假设解压缩文件置于d:\quichtool目录中:    
    (load "d:\\quichtool\\QTWin32Api.VLX")     ;加载Lisp程序接口
    (Quicktool_Initialize "d:\\quichtool")     ;初始化接口,参数指向Quicktool.dll文件所在目录

    接着你就可以直接调用Win32Api函数了，举些例子来说明如何使用。

1、让系统扬声器发出"嘀嘀"声：
   让扬声器发声,使用Beep函数，Beep在kernel32.dll模块中，函数调用如下：
   (win32api "kernel32" "Beep" (list 4000 60))

2、隐藏任务栏中的"开始"按钮：
   (setq hwnd (win32api "user32" "FindWindowA" (list "Shell_TrayWnd" 0))) ;获得taskbar任务栏句柄
   (setq btnhwnd (win32api "user32" "FindWindowExA" (list hwnd 0 "BUTTON" 0))) ;从任务栏中找到"开始"按钮的句柄
   (win32api "user32" "ShowWindow" (list btnhwnd 0))) ;隐藏"开始"按钮

   (win32api "user32" "ShowWindow" (list btnhwnd 1))) ;显示"开始"按钮

3、获得AutoCAD程序的窗口标题
   要获得窗口标题，使用GetWindowText函数，GetWindowText在user32.dll模块中，函数名为GetWindowTextA。该函数需要3个参数，第1个参数为欲取得标题的窗口句柄hwnd，第2个参数用于存放标题字符串的变量的内存地址，第3个参数为字符串的变量的字节长度。
(AcadApphwnd)取得AutoCAD程序的句柄，需要准备一个字符串变量str来传回函数执行后的结果，将str的内存地址作为参数，变量前面加个单引号'， MAX_STRING_LENGTH定义为常量256。函数表达式如下：
   (win32api "user32" "GetWindowTextA" (list (AcadApphwnd) 'str MAX_STRING_LENGTH))
   函数执行后，变量str的值为AutoCAD程序窗口标题的字符串。

4、重新设置AutoCAD程序的窗口标题
   (win32api "user32" "SetWindowTextA" (list (AcadApphwnd) "新标题:Win32Api"))

5、在AutoCAD程序的窗口中挖个圆洞，透过洞口可以看到windows桌面 ;)
   (setq hwnd (acadapphwnd)) ;取得AutoCAD程序的句柄
   (win32api "user32" "GetWindowRect" (list hwnd 'rt)) ;得到AutoCAD程序窗口的区域
   (setq hframeRgn (win32api "gdi32" "CreateRectRgnIndirect" (list 'rt))) ;将矩形重建区域
   (setq hholeRgn (win32api "gdi32" "CreateEllipticRgn" (list 100 100 300 300))) ;创建圆洞区域
   (win32api "gdi32" "CombineRgn" (list hframeRgn hframeRgn hholeRgn 4))   ;将矩形区域减去圆洞区域，赋值给hframeRgn
   (win32api "user32" "SetWindowRgn" (list hwnd hframeRgn 1))  ;将hframeRgn区域重新设置给AutoCAD程序窗口
   呵呵，试着移动AutoCAD程序窗口，透过洞口可以看到windows桌面!很神秘吧!
  

体验了有趣的Win32Api函数，这里作个小结：

    在Lisp中可以直接调用Win32Api函数，比VBA简单，调用前不需要事先申明函数，常量的定义以及数据类型和数据结构。Quicktool Win32Api函数分为四个部分：Api接口、库模块名、函数名和参数列表,Quicktool Win32Apia函数调用格式:

    (Win32Api "库模块名" "函数名" (list 参数1 参数2……))

    Win32Api---为所有windows Api函数的接口入口点，在左括号的一个位置出现
    "库模块名"---函数所在的DLL动态链接库文件名，大部分的函数包含在user32.dll、gdi32.dll、kernel32.dll、shell32.dll这几个模块中，文件的后缀名.dll可以省略，文件名大小写无关。
    "函数名"---函数别名必须区分大小写。对于含字符串操作的函数分为ANSI和Unicode两种版本，对应的函数为"函数A"与"函数W"，需要显式说明。
     (list 参数1 参数2……)---传递给函数的参数列表，每个函数传递的参数不尽相同，参考相关章节中的函数详解。

    说明：
       1、如果函数不带任何参数，用nil
       2、如果需要取回处理后的参数，将内存地址作为参数，变量前面加个单引号'
       3、大部分的函数的返回值说明调用函数执行的成功与否的结果，0表示失败，其他的值表示调用函数执行成功

    想了解更多的API编程知识，可以参考《Programming Windows》一书，作者：Charles Petzold

pengfei2010

回帖是一种美德！感谢楼主的无私分享 谢谢

nijiea123

很不错 学习了

killer9806

谢楼主分享，真的好感谢哦

vken7az2p

感谢您的分享

让大家又学到新的知识

highflybir

的确很好！

这样吧，我上传一个《新编win32API函数大全》上来，希望能为这个帖子锦上添花。

wmz

这简直就是天上掉馅饼!

wpj1973

thks very much!

取之于“明”，用之于“明”。

cgh930011

非常感谢 顶

jdhszh

呵呵！好东西，谢谢！！！

jaminth

顶!!!!!谢谢!好东西，谢谢！！！

torcky

真的可以用！！！太厉害了！！！