Как узнать имя компьютера?

Previous  Top  Next

    
 

 

 

Code:

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;

 

 

©Drkb::04628

Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)