Как получить имя компьютера

← →
Esminech (2003-02-06 11:55) [0]

Привет, специалисты!

Скажите, пожалуйста, как получить имя компьютера.
Локального, на котором запущена програма.

← →
Юрий Федоров © (2003-02-06 12:03) [1]

GetComputerName

← →
Alibaba © (2003-02-06 12:33) [2]

Могу предложить простую и удобную функцию.
Где-то увидел и ИНете, иногда использую и очень доволен.

function GetCompName: string;
var
Buf: array [0..MAX_COMPUTERNAME_LENGTH] of Char;
i,BufferSize: DWORD;
begin
BufferSize:=SizeOf(Buf);
GetComputerName(Buf,BufferSize);
Result:="";
i:=0;
while Buf[i] <> #0 do
begin
Result:=Result+Buf[i];
inc(i);
end;
end;

← →
Esminech (2003-02-06 12:57) [3]

Спасибо

Как получить имя компьютера Найти похожие ветки