Главная страница
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.044 c
1-1088728837
maxistent
2004-07-02 04:40
2004.07.18
TWebBrowser


1-1089029283
Popovich A.
2004-07-05 16:08
2004.07.18
Установка новых компонент


14-1088560114
Думкин
2004-06-30 05:48
2004.07.18
С днем рождения! 30 июня


14-1088626071
Мазут Береговой
2004-07-01 00:07
2004.07.18
Сурьёзеый вопрос на ентот раз.


3-1087924309
Piter
2004-06-22 21:11
2004.07.18
Как искать в базе без учета регистра букв?