请问DirectoryListBox1如何显示远程文件目录，有没有别的控件，万分感谢

Question

请问DirectoryListBox1如何显示远程文件目录，有没有别的控件，万分感谢

Answer 1

试一试下面的程序
procedure TForm.Button1Click(Sender: TObject);
var
  TitleName,RootDir : string;
  lpItemID : PItemIDList;
  BrowseInfo : TBrowseInfo;
  DisplayName : array[0..MAX_PATH] of char;
  TempPath : array[0..MAX_PATH] of char;
begin
  TitleName := '选择路径';
  RootDir:=edtPath.Text;
  FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
  BrowseInfo.hwndOwner := SetupForm.Handle;
  BrowseInfo.pszDisplayName := @DisplayName;
  BrowseInfo.lpszTitle := PChar(TitleName);
  BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
  lpItemID := SHBrowseForFolder(BrowseInfo);
  if lpItemId <> nil then
  begin
    SHGetPathFromIDList(lpItemID, TempPath);
    edtPath.Text:=TempPath;
    GlobalFreePtr(lpItemID);
  end;
end;