Как показать Choose Computer диалог?

Previous  Top  Next

    
 

 

 

Code:

{

The "Choose Computer" is a dialog provided by network services

(NTLANMAN.DLL) for Windows 2k/NT/XP

to display the servers and their computers.

}

 

 

type

TServerBrowseDialogA0 = function(hwnd: HWND; pchBuffer: Pointer; cchBufSize: DWORD): bool; 

stdcall;

 

 

function ShowServerDialog(AHandle: THandle): string;

var

ServerBrowseDialogA0: TServerBrowseDialogA0;

LANMAN_DLL: DWORD;

buffer: array[0..1024] of char;

bLoadLib: Boolean;

begin

LANMAN_DLL := GetModuleHandle('NTLANMAN.DLL');

if LANMAN_DLL = 0 then

begin

   LANMAN_DLL := LoadLibrary('NTLANMAN.DLL');

   bLoadLib := True;

end;

if LANMAN_DLL <> 0 then

begin @ServerBrowseDialogA0 := GetProcAddress(LANMAN_DLL, 'ServerBrowseDialogA0');

   DialogBox(HInstance, MAKEINTRESOURCE(101), AHandle, nil);

   ServerBrowseDialogA0(AHandle, @buffer, 1024);

   if buffer[0] = '\' then

   begin

     Result := buffer;

   end;

   if bLoadLib then

     FreeLibrary(LANMAN_DLL);

end;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

label1.Caption := ShowServerDialog(Form1.Handle);

end;

 

 

©Drkb::01198

Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php