Delphi - база знаний


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


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





Function ReadComputerName:string;
var  
i:DWORD;   
p:PChar;  
begin
i:=255;  
GetMem(p, i);  
GetComputerName(p, i);  
Result:=String(p);  
FreeMem(p);  
end;

Автор Vit
Взято с Vingrad.ru




Начало  Назад  Вперед