| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как получить имя компьютера [D6, Win2k]
Esminech © (2003-02-06 11:55:00)Привет, специалисты!
Скажите, пожалуйста, как получить имя компьютера.
Локального, на котором запущена програма.
Esminech (2003-02-06 12:57:00) [1]Спасибо
Alibaba (2003-02-06 12:33:00) [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;
Юрий Федоров (2003-02-06 12:03:00) [3]GetComputerName
| |
