Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.05.27;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.037 c
2-1178637823
likenoother
2007-05-08 19:23
2007.05.27
вывод текста через канвас


6-1163929428
-~-
2006-11-19 12:43
2007.05.27
Пара вопросов про ICS (TWSocket).


11-1160437093
doozer
2006-10-10 03:38
2007.05.27
Какой компонент предполагается использовать вместо TImage??


2-1178779871
Zubarev
2007-05-10 10:51
2007.05.27
DBGrid


2-1178569350
Malik
2007-05-08 00:22
2007.05.27
Собираю умные мысли....