发信人: teleme(Teleme)
整理人: teleme(2002-08-11 09:59:01), 站内信件
|
use windows
function GetsComputerName: string;
var
CNameBuffer : PChar;
fl_loaded : Boolean;
CLen : ^DWord;
begin
GetMem(CNameBuffer, 255);
New(CLen);
CLen^ := 255;
fl_loaded := GetComputerName(CNameBuffer, CLen^);
if fl_loaded then
result := StrPas(CNameBuffer)
else
result := 'Unkown';
FreeMem(CNameBuffer, 255);
Dispose(CLen);
end;
----
随便说说 |
|