Какай командой узнать сетевое имя компа?

← →
саша © (2002-10-14 06:50) [0]

Ответте пожалуста.

← →
sask © (2002-10-14 09:01) [1]

GetHostName / GetComputerName

← →
Кулюкин Олег © (2002-10-14 09:03) [2]

GetComputerName?

← →
turusov © (2002-10-14 11:15) [3]

function TNsDublicateApplication.GetUserName : String;
var
pcUser : PChar;
dwUSize : DWORD;
begin
dwUSize := 21; // user name can be up to 20 characters
GetMem( pcUser, dwUSize ); // allocate memory for the string
try
if Windows.GetUserName( pcUser, dwUSize ) then
Result := pcUser
finally
FreeMem( pcUser ); // now free the memory allocated for the string
end;
end;

function TNsDublicateApplication.GetComputerName : String;
var
pcComputer: PChar;
dwCSize : DWORD;
begin
dwCSize := MAX_COMPUTERNAME_LENGTH + 1;
GetMem( pcComputer, dwCSize ); // allocate memory for the string
try
if Windows.GetComputerName( pcComputer, dwCSize ) then
Result := pcComputer;
finally
FreeMem(pcComputer); // now free the memory allocated for the string
end;
end;

Всем спасибо

Какай командой узнать сетевое имя компа? Найти похожие ветки