Рабочая группа компьютера

← →
Angelka © (2007-05-10 20:15) [0]

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

← →
begin...end © (2007-05-10 20:37) [1]

NetWkstaGetInfo

← →
Angelka © (2007-05-10 20:38) [2]

спасибо

← →
Angelka © (2007-05-10 20:49) [3]

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

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

Вот несколько полезных ссылок&#133

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

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

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.

Рабочая группа компьютера Найти похожие ветки