Скачать: CL | DM;

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

← →
саша ©   (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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.019 c