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)