Как узнать имя компьютера?
01.01.2007
Vit
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;
01.01.2007
Vit
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;
|
Previous page:
Fast Report для CLX |
Top: DRKB |
Next page: Русификация Kylix |