5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
sailer_shi 2003-10-06
- 打赏
- 举报
那么getcomputername的返回值是什么？
ly_liuyang 2003-10-06
- 打赏
- 举报
p:pchar;
getmem(p, 100);
getcomputername(p, 100);
...
freemem(p);
getmem(p, 100);
getcomputername(p, 100);
...
freemem(p);
sailer_shi 2003-10-06
- 打赏
- 举报
是这么用嘛？
var
p: pChar;
begin
getmem(p, 100);
if getcomputername(p, 101) then
edt_servername.Text := p;
freemem(p);
end;
var
p: pChar;
begin
getmem(p, 100);
if getcomputername(p, 101) then
edt_servername.Text := p;
freemem(p);
end;
chanet 2003-10-06
- 打赏
- 举报
GetComputerName(lpBuffer,nSize)
取得这台计算机的名称
返回值
TRUE（非零）表示成功，否则返回零
参数说明:
lpBuffer String，随同计算机名载入的字串缓冲区
nSize Long，缓冲区的长度。这个变量随同返回计算机名的实际长度载入
