标题: PB11,取计算机名方法 [打印本页]

---

作者: zhouln2008    时间: 2007-9-17 09:54     标题: PB11,取计算机名方法

FUNCTION boolean GetComputerNameA(ref string cname,ref long nbuf) LIBRARY "kernel32.dll" ALIAS FOR "GetComputerNameA;ansi"

string ls_compname
long ll_buf
ll_buf = 25
ls_compname = space(ll_buf)
GetComputerNameA(ls_compname, ll_buf)
return ls_compname

---

欢迎光临 编程开发论坛 (http://bbs.lihuasoft.net/)

Powered by Discuz! 6.0.0