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

Вниз

Как узнать рабочую группу компьютера?   Найти похожие ветки 

 
Kiloper   (2004-05-21 19:49) [0]

???


 
Rouse_ ©   (2004-05-21 21:00) [1]

function TMainForm.GetGroup(const CompName: String): String;
var
 CurrRes: TNetResource;
 ParentName: array [0..1] of TNetResource;
 Enum: DWORD;
 Err: Integer;
begin
 with CurrRes do
 begin
   dwScope := RESOURCE_GLOBALNET;
   dwType := RESOURCETYPE_DISK;
   dwDisplayType := RESOURCEDISPLAYTYPE_SERVER;
   dwUsage := RESOURCEUSAGE_CONTAINER;
   lpLocalName := "";
   lpRemoteName := PChar("\\" + CompName);
   lpComment := "";
   lpProvider := nil;
 end;
 Enum := SizeOf(ParentName);
 Err := WNetGetResourceParent(@CurrRes, @ParentName, Enum);
 if Err = NO_ERROR then
 begin
   Result := ParentName[0].lpRemoteName;
   if Result = "" then Result := RES_COM_NO;
 end
 else
   MessageDlg(ERR_PAR, mtError, [mbOK], 0);
end;


 
VMcL ©   (2004-05-21 21:01) [2]

>>Kiloper  (21.05.04 19:49)

Поиск не рулит?

http://delphimaster.net/view/6-1083750681/
http://delphimaster.net/view/6-1083750681/



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

Текущий архив: 2004.07.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.03 c
14-1088184065
XeLax
2004-06-25 21:21
2004.07.18
Узнать имя сообщения по номеру


3-1088353802
Дилетант
2004-06-27 20:30
2004.07.18
Фильтры в таблицах


1-1088948357
чудак
2004-07-04 17:39
2004.07.18
вопрос про PageControl


6-1084859339
Сергей12
2004-05-18 09:48
2004.07.18
Соединение Client Server


14-1088652328
Ozone
2004-07-01 07:25
2004.07.18
Linux - безопасность