[必看]：来一个Vlisp直接调用API小例子

ysx810210

Vlisp直接调用API通用函数：ysx-use-api

详见 http://www.mjtd.com/BBS/dispbbs.asp?boardid=3&id=74063

参数说明：

1、参数1

API返回值类型，long为nil

               string为T

返回值目前仅支持long和string，其他类型的日后完善

2、参数2

API函数声明，文本

3、参数3
API函数名称

4、参数4

API函数参数表

备注：通用函数还有很多不完善的地方，先出个简单版

例子：

(ysx-use-api nil "Private Declare Function GetCurrentProcessId Lib \"kernel32\" () As Long" "GetCurrentProcessId" nil)

获取进程标识符

(ysx-use-api nil "Private Declare Function ShowCursor Lib \"user32\" Alias \"ShowCursor\" (ByVal bShow As Long) As Long" "ShowCursor" (list 1))

显示鼠标

(ysx-use-api nil "Private Declare Function ShowCursor Lib \"user32\" Alias \"ShowCursor\" (ByVal bShow As Long) As Long" "ShowCursor" (list 0))

隐藏鼠标

(ysx-use-api nil "Private Declare Function CopyFile Lib \"kernel32\" Alias \"CopyFileA\" (ByVal lpExistingFileName As String, ByVal lpNewFileName As
String, ByVal bFailIfExists As Long) As Long" "CopyFile" (list "c:\\bootfont.bin" "d:\\1.vxd" 0))

复制文件