Как считать hostid и/или имя компьютера

[Ирина_28]

Здравствуйте. Помогите плиз.
Как считать hostid и/или имя компьютера в Дельфи? Так, чтобы при запуске программы, сама же программа считала hostid и/или имя компьютера.
Заранее спасибо!

[Вавел из ГМТУ]

GetComputerName(...), GetUserName(...) и т.д.

Что есть "hostid" ?

[Ирина_28]

Вавел, спасибо большое.
"hostid" - число-идентификатор компьютера.

а что в скобках указать в GetComputerName(...), GetUserName(...)?

например,

var
compname: string;

begin

compname := GetComputerName(...)
end;


мне подсказали Network Unit подключить, а вот как не сказали.

[spamer]

Вот держи

procedure TForm1.Button1Click(Sender: TObject);
var
CompName:array[0..100] of char;
UserName:array[0..100] of char;
Compln:Cardinal;
begin
Compln:=100;
GetComputerName(CompName,compln);
GetUserName(UserName, compln);
Label1.Caption := CompName;
Label2.Caption := UserName;
end;

[Volt]

можно так в uses пишеш Registry

function GetUserFromWindows: string;///имя пользователя
var
UserName : string;
UserNameLen : Dword; IDPK:string;
reg:Tregistry;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('SoftWare\Microsoft\Windows NT\CurrentVersion\Winlogon',false);
IDPK:=reg.ReadString('DefaultDomainName');
reg.CloseKey;
reg.Free;

UserNameLen := 255; SetLength(userName, UserNameLen);
if GetUserName(PChar(UserName), UserNameLen) then
Result := Copy(UserName,1,UserNameLen - 1)+#13+'ID: '+IDPK
else Result := 'Unknown';

end;

[Stilet]

"hostid" - число-идентификатор компьютера.

IP что-ли?