ＬＩＳＰ程序中调用ＡＰＩ函数?

时尚青云

偶想用ＬＩＳＰ程序中调用ＡＰＩ函数。请问谁知道怎么加载findwindow这个ＡＰＩ函数。怎么加载怎么定义给个例子吧。求助

雪山飞狐_lzh

函数功能：该函数获得一个顶层窗口的句柄，该窗口的类名和窗口名与给定的字符串相匹配。这个函数不查找子窗口。在查找时不区分大小写。

函数型：HWND FindWindow（LPCTSTR IpClassName，LPCTSTR IpWindowName）;

参数：

IpClassName ：指向一个指定了类名的空结束字符串，或一个标识类名字符串的成员的指针。如果该参数为一个成员，则它必须为前次调用theGlobafAddAtom函数产生的全局成员。该成员为16位，必须位于IpClassName的低 16位，高位必须为 0。

IpWindowName：指向一个指定了窗口名（窗口标题）的空结束字符串。如果该参数为空，则为所有窗口全匹配。

返回值：如果函数成功，返回值为具有指定类名和窗口名的窗口句柄；如果函数失败，返回值为NULL。

若想获得更多错误信息，请调用GetLastError函数。

备注：Windows CE：若类名是一个成员，它必须是从 RegisterClass返回的成员。

速查：Windows NT：3.1以上版本；Windows：95以上版本；Windows CE：1.0以上版本；头文件：Winuser.h；库文件：user32.lib; Unicode：在 Windows NT上实现为 Unicode和 ANSI两种版本。

时尚青云

谢谢您的回贴，您讲的这些是这个函数的用法及参数说明。我想知道的是ｌｉｓｐ调用ＡＰＩ函数的时候要不要加载，怎么个加载法？难道ＬＩＳＰ程序中直接就可以用了吗？ (defun findwindow()
(setq hwnd findwindow(nil,'autocad 2005 - [drawing1.dwg]'))
) 在使用的时候这样写语法也不对，应该怎么写呢？

cnks

二楼说的是在vba里面调用，而楼主说的是在lisp里面

pengfei2010

这个很厉害，能够调取外部api那就无所不能