請問delphi5 如何寫coding才可開啟這個dialogbox

SuperLowB 你好

  這應該就是SelectDiractory Functions的功能,如下
Var
  d:String;
Begin
  If SelectDirectory('Choice a diractory to save to,'
                     'pick a partial download to resume(1594.0 MB)'
                   ,'',d) THen Begin
    // 確定有選擇某個路徑
    ShowMessage(d);
  End;
End;    PS:需uses FileCtrl

_______________________________________ 深藍的魚，祝您好運..........連連

HI, 若要有 [新資料夾] 這個 button 的話, 得自行做一個才行, 使用 SHBrowseForFolder api 就可以達到囉, 如,

    // 宣告
function BrowseDialog(const Title: string; const Flag: integer): string;
var
 lpItemID : PItemIDList;
 BrowseInfo : TBrowseInfo;
 DisplayName : array[0..MAX_PATH] of char;
 TempPath : array[0..MAX_PATH] of char;
begin
 Result:='';
 FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
 with BrowseInfo do begin
   hwndOwner := Application.Handle;
   pszDisplayName := @DisplayName;
   lpszTitle := PChar(Title);
   ulFlags := Flag;
 end;
 lpItemID := SHBrowseForFolder(BrowseInfo);
 if lpItemId <> nil then begin
   SHGetPathFromIDList(lpItemID, TempPath);
   Result := TempPath;
   GlobalFreePtr(lpItemID);
 end;
end;    // 使用
procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage(BrowseDialog('Choice a diractory to save to, pick a partial download to resume(1594.0 MB)', BIF_NEWDIALOGSTYLE));
end;

參數可以參考, http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/structures/browseinfo.asp PS. 忘了提醒, 要 uses ShellAPI, ShlObj; 發表人 - timhuang 於 2004/08/23 00:44:58

引言: HI, 若要有 [新資料夾] 這個 button 的話, 得自行做一個才行, 使用 SHBrowseForFolder api 就可以達到囉, 如,

    // 宣告
function BrowseDialog(const Title: string; const Flag: integer): string;
var
 lpItemID : PItemIDList;
 BrowseInfo : TBrowseInfo;
 DisplayName : array[0..MAX_PATH] of char;
 TempPath : array[0..MAX_PATH] of char;
begin
 Result:='';
 FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
 with BrowseInfo do begin
   hwndOwner := Application.Handle;
   pszDisplayName := @DisplayName;
   lpszTitle := PChar(Title);
   ulFlags := Flag;
 end;
 lpItemID := SHBrowseForFolder(BrowseInfo);
 if lpItemId <> nil then begin
   SHGetPathFromIDList(lpItemID, TempPath);
   Result := TempPath;
   GlobalFreePtr(lpItemID);
 end;
end;    // 使用
procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage(BrowseDialog('Choice a diractory to save to, pick a partial download to resume(1594.0 MB)', BIF_NEWDIALOGSTYLE));
end;

參數可以參考, http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/structures/browseinfo.asp PS. 忘了提醒, 要 uses ShellAPI, ShlObj; 發表人 - timhuang 於 2004/08/23 00:44:58

多謝Timhuang和Chance36，但我想問TimhuangBIF_NEWDIALOGSTYLE 是那個units 匯入的，因為我complie不到

該值是在 ShlObj 這個 unit 中的, 定義如下, BIF_NEWDIALOGSTYLE = $0040;

引言: 該值是在 ShlObj 這個 unit 中的, 定義如下, BIF_NEWDIALOGSTYLE = $0040;

不知是不是Delphi 5沒有這個constant，但是我自已加了去了，可行了，多謝Timhuang

引言:

引言: 該值是在 ShlObj 這個 unit 中的, 定義如下, BIF_NEWDIALOGSTYLE = $0040;

不知是不是Delphi 5沒有這個constant，但是我自已加了去了，可行了，多謝Timhuang

小弟的delphi6也沒有這個constant, 所以我把它加在程序裏面 procedure TForm1.Button2Click(Sender: TObject); const BIF_NEWDIALOGSTYLE:word = $0040; //var //BIF_NEWDIALOGSTYLE:integer; begin ShowMessage(BrowseDialog('Choice a diractory to save to, pick a partial download to resume(1594.0 MB)',BIF_NEWDIALOGSTYLE)); end; procedure TForm1.Button1Click(Sender: TObject); Var d:String; Begin If SelectDirectory('Choice a diractory to save to,' 'pick a partial download to resume(1594.0 MB)' ,'',d) THen Begin // 確定有選擇某個路徑 ShowMessage(d); End; End; 沉思, 再沉思! 學習, 再學習! 生活隨喜, 簡單自在^^ 發表人 - poemkevin 於 2004/08/24 08:20:43