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

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

Рабочая группа компьютера [D7, WinXP]

Angelka ©   (2007-05-10 20:15:00) 

Уважаемые Дамы и Господа, меня интересует вопрос, как можно на форму вывести данные о своей рабочей группе и имени компьютера? Если вопрос задан не корректно могу перефразировать, заранее благодарю.

---

begin...end   (2007-05-10 21:20:00) [1]

Как-то так...

type
 PWKSTA_INFO_100 = ^WKSTA_INFO_100;
 WKSTA_INFO_100 = packed record
   wki100_platform_id:   DWORD;
   wki100_computername:  PWideChar;
   wki100_langroup:      PWideChar;
   wki100_ver_major:     DWORD;
   wki100_ver_minor:     DWORD;
 end;

function NetWkstaGetInfo(servername: PWideChar; level: DWORD; var bufptr: Pointer): DWORD; stdcall; external 'Netapi32.dll';
function NetApiBufferFree(buffer: Pointer): DWORD; stdcall; external 'Netapi32.dll';

const
 NERR_Success = 0;

var
 pInfo: Pointer;
begin
 pInfo := nil;
 if NetWkstaGetInfo(nil, 100, pInfo) = NERR_Success then
   with PWKSTA_INFO_100(pInfo)^ do
     ShowMessageFmt('Computer: %s Workgroup: %s', [wki100_computername, wki100_langroup]);
 if Assigned(pInfo) then
   NetApiBufferFree(pInfo)
end.

---

Knight   (2007-05-10 21:13:00) [2]

Вот несколько полезных ссылок…

http://www.yandex.ru/yandsearch?rpt=rad&text=NetWkstaGetInfo

---

Angelka   (2007-05-10 20:49:00) [3]

> begin...end ©   (10.05.07 20:37) [1]
> NetWkstaGetInfo


Дело в том что я в делфи еще полная дура... =) можно поподробней куда это вставить, и как "это" покажет имя рабочей группы на формк и какие компоненты для этого нужны?

---

Angelka   (2007-05-10 20:38:00) [4]

спасибо

---

begin...end   (2007-05-10 20:37:00) [5]

NetWkstaGetInfo

---

Наверх