谁知道怎样打开“输入网络密码”对话框

Question

输入一个需要验证的机器名
ShellExecute(Application.Handle, 'open' , '\\dominoserver',NiL,NiL,SW_SHOW);

Answer 1

用Winsight32查出他的ClassName，然后查MSDN，找到响应函数，剩下的我就不说了吧！

Answer 2

procedure TForm1.Button26Click(Sender: TObject);
var
  ppidl, iil: PITEMIDLIST;
  bi: BROWSEINFO;
  ret: Array[0..MAX_PATH - 1] of Char;
begin
  SHGetSpecialFolderLocation(
    Handle,
    CSIDL_NETWORK,
    ppidl);
  ZeroMemory(@bi, SizeOf(TBrowseInfo));
  ZeroMemory(@ret, MAX_PATH);
  bi.hwndOwner := Handle;
  bi.pidlRoot := ppidl;
  bi.pszDisplayName :=nil;
  bi.pszDisplayName := @ret;
  bi.lpszTitle := 'NetWork';
  bi.ulFlags :=  BIF_EDITBOX or BIF_RETURNONLYFSDIRS or BIF_VALIDATE or BIF_STATUSTEXT or BIF_BROWSEINCLUDEFILES;
  bi.lpfn := nil;
  iil := SHBrowseForFolder(bi);
  if iil <> nil then
  begin
    SHGetPathFromIDList(iil, ret);
    ShowMessage(ret);
  end;
end;

Answer 3

BESTperson(星魂):
请问，为什么我把你的代码copy到一个form中编译时，不能识别
PITEMIDLIST
BROWSEINFO
SHGetSpecialFolderLocation
CSIDL_NETWORK
TBrowseInfo
?