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

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

Имя компьютера [D6, Win2k]

denis24 ©   (2005-01-18 09:55:00) 

Подскажите пожалуста,как получить сабж?

---

Виктор   (2005-01-18 09:59:00) [1]

var Size         : cardinal;
   PRes         : PChar;
   BRes         : boolean;
begin
 Size := MAX_COMPUTERNAME_LENGTH + 1;
 PRes := StrAlloc(Size);
 BRes := GetComputerName(PRes, Size);

---

Наверх