VFP中如何调用API函数

首先用DECLARE 关键字声明API函数

DECLARE  [API函数返回值类型] API函数名 IN WIN32API 参数类型1 [参数名1] .....

如声明获得计算机名的函数GetComputerName

DECLARE integer GetComputerName IN "kernel32" string @,long @

参数名可以省略，@号表示引用或指针型的参数

上面用了kernel32（具体的库名）代替了WIN32API，这样做也是可以的，但需要加双引号。


例子：
VFP中如何获得获得计算机名

DECLARE integer GetComputerName IN "kernel32" string @,long @ 

cc=SPACE(100)
ll=100
GetComputerName(@cc,@ll)

MESSAGEBOX(cc)