Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как из программы узнать имя компьютера? [D5, Win95/98, NT4, Win2k, WinXP]


AM ©   (2002-11-06 13:47:00) 

Доброго всем дня! Подскажите про сабж пожалуйста. Я знаю, что можно через системный реестор, но конкретно где надо поточнее (так как это информация записана в нескольких местах).
Находится ли это в одном и том же месте для всех ОС?
А может можно попроще через WinAPI?


Alex4444444444   (2002-11-06 15:43:00) [1]

Pardon, ne tuda clicknul...

Nu, navernoe


GetMem(P, DoFiga);
try
if GetComputerName(P, DoFiga) then begin
SetString(Result, P, Length(P));
end;
finally
FreeMem(P);
end;


Alex4444444444   (2002-11-06 15:41:00) [2]

Nu, navernoe


AM   (2002-11-06 15:28:00) [3]

А можно на примере кода Delphi, у меня использование этой функции почему-то вызывает ошибку...


Oleg_Gashev   (2002-11-06 13:56:00) [4]

The GetComputerName function retrieves the computer name of the current system. This name is established at system startup, when it is initialized from the registry.

BOOL GetComputerName(
LPTSTR lpBuffer, // address of name buffer
LPDWORD nSize // address of size of name buffer
);


Наверх

Титульная страница Поиск, карта сайта Написать письмо