Показать диалог выбора компьютера

Советы » Сеть » Показать диалог выбора компьютера

{ 
  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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com