Как узнать имя компьютера? |
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)