Как узнать имя компьютера?
Falk0ner, вс, 06/07/2008 - 15:35.
Uses Libc;
Function GetPCName:string;
var Name:PChar;
Len:Cardinal;
begin
Len:=255;
GetMem(Name, Len);
gethostname(Name, Len);
Result:=String(Name);
FreeMem(Name);
end;
Function GetPCName:string;
var Name:PChar;
Len:Cardinal;
begin
Len:=255;
GetMem(Name, Len);
gethostname(Name, Len);
Result:=String(Name);
FreeMem(Name);
end;
Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)
Отправить комментарий