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

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

← →
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]

Спасибо

---

Страницы: 1 вся ветка

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



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