获得计算机名称

在PB中调用API:

GetComputerNameA()
功能得到执行应用程序的计算机的名称需要注意的是名称参数cname 必须分配
足够的内存否则在退出应用程序时可能会引发GPF 错误实际上所有外部函数的引用
类参数都必须分配足够的内存
声明格式FUNCTION boolean GetComputerNameA(ref string cname,ref long nbuf)
LIBRARY "Kernel32.dll"
示例 string ls_compname
long ll_buf
ll_buf = 25 //设置cname 参数的长度
ls_compname = space(ll_buf) //为ls_compname 参数分配空间
GetComputerNameA(ls_compname, ll_buf)
MessageBox("计算机名称", ls_compname)

 

但在PB10版本中调用GetComputerNameA() 会出现乱码, 是因为:

Implemented as GetComputerNameW (Unicode) and GetComputerNameA (ANSI).  (引自msdn)

所以改为GetComputerNameW () 即可.