Tartomány és számítógép név választó dialóg ablak

function SystemFocusDialog(hwndOwner: HWND; dwSelectionFlag: UINT; wszName: PWideChar; dwBufSize: DWORD; var bOKPressed: Boolean; wszHelpFile: PWideChar; dwContextHelpId: DWORD): DWORD; stdcall; external 'ntlanman.dll' Name 'I_SystemFocusDialog';

function ShowSystemFocusDialog(buffer: PWideChar; len: DWORD): Boolean;
begin
  result:=false;
  SystemFocusDialog(0, FOCUSDLG_SERVERS_DOMAINS or  FOCUSDLG_BROWSE_ALL_DOMAINS, buffer, len, result, nil, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  buffer: array [0..MAX_COMPUTERNAME_LENGTH + 1] of WideChar;
begin
  if ShowSystemFocusDialog(buffer, MAX_COMPUTERNAME_LENGTH + 1) then begin
    Label1.Caption:=buffer;
  end else begin
    Label1.Caption:='';
  end;
end;