Форум: "Сети";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];
ВнизКакай командой узнать сетевое имя компа? Найти похожие ветки
← →
саша (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;
← →
саша (2002-10-15 07:56) [4]Всем спасибо
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.013 c