Главная страница
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.023 c
3-1087817485
Igoryok
2004-06-21 15:31
2004.07.18
TADOStoredProcedure - глюк


14-1088372089
SergP
2004-06-28 01:34
2004.07.18
dcu --> pas???


1-1089026451
ORMADA
2004-07-05 15:20
2004.07.18
Пакеты


14-1088509025
blackweber
2004-06-29 15:37
2004.07.18
Win98 - сеть - WinXP


1-1089024872
Zabludshiy
2004-07-05 14:54
2004.07.18
Вывести HTML документ без WebBrowser