Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Имя машины?

Автор: Guest 2.9.2005, 15:14

Подскажите, как определить имя компьютера?

Автор: Poseidon 2.9.2005, 15:17

Код

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

Автор: Guest 2.9.2005, 15:44

спасибо

Автор: Dimannn 3.9.2005, 16:22

Ещё в принципе в 7 дельфе на вкладке IndyMisk есть копонент IPWaTHC у которого есть свойства, равные IP и имени компа.