Форум: "Начинающим";
Текущий архив: 2007.05.27;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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


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

---

← →
Knight ©   (2007-05-10 21:13) [4]

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

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

---

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

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

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.

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.05.27;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.043 c