惯性聚合 高效追踪和阅读你感兴趣的博客、新闻、科技资讯
阅读原文 在惯性聚合中打开

推荐订阅源

The GitHub Blog
The GitHub Blog
Martin Fowler
Martin Fowler
Vercel News
Vercel News
U
Unit 42
Engineering at Meta
Engineering at Meta
aimingoo的专栏
aimingoo的专栏
MyScale Blog
MyScale Blog
Y
Y Combinator Blog
阮一峰的网络日志
阮一峰的网络日志
爱范儿
爱范儿
Apple Machine Learning Research
Apple Machine Learning Research
博客园_首页
钛媒体:引领未来商业与生活新知
钛媒体:引领未来商业与生活新知
B
Blog RSS Feed
N
Netflix TechBlog - Medium
GbyAI
GbyAI
F
Fortinet All Blogs
MongoDB | Blog
MongoDB | Blog
大猫的无限游戏
大猫的无限游戏
C
Check Point Blog
M
MIT News - Artificial intelligence
D
Docker
IT之家
IT之家
Stack Overflow Blog
Stack Overflow Blog

博客园 - 张瓅

puppy-language ConsolePlayer 仙剑奇侠传4主题曲 QBASIC代码 HTML5 模版调用析构函数的一个发现 编译期运算 如何测量代码执行时间 【转】老外眼中的武侠小说 1850年的宁波 关于安装 DirectX SDk Dec 2005 后无法编译DirectShow应用程序的问题 [转]VB中嵌入汇编与真正的DLL 新的连连看网络版 各种连接字符串 关于CSS属性display:none和visible:hidden的区别 我用超白痴的方法解出了这道题,大家有没有更好的方法 Fire Net 尝试了一下Flex DES加密算法的实现 软件项目经理必备素质(转)
VFP中如何调用API函数
张瓅 · 2005-10-20 · via 博客园 - 张瓅

首先用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)