function GetLocalName():String;
var
CNameBuffer : PChar;
CLen : ^DWord;
begin
GetMem(CNameBuffer,255);
New(CLen);
CLen^:= 255;
if GetComputerName(CNameBuffer,CLen^) then
result:=CNameBuffer
else
result:='';
FreeMem(CNameBuffer,255);
Dispose(CLen);
end; //获取计算机名称
var
CNameBuffer : PChar;
CLen : ^DWord;
begin
GetMem(CNameBuffer,255);
New(CLen);
CLen^:= 255;
if GetComputerName(CNameBuffer,CLen^) then
result:=CNameBuffer
else
result:='';
FreeMem(CNameBuffer,255);
Dispose(CLen);
end; //获取计算机名称
1853
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
