如何在DELPHI程序中弹出一个选择目录的对话框，象选择文件对话框一样(100分)

浩

浩毛

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-21

• #1

请问如何在DELPHI程序中弹出一个选择目录的对话框，象选择文件对话框一样

DELPHI的控件没有这种对话框，只有选择文件对话框。
我记得有个API函数是弹出选择目录的，但是我忘了，请问哪位大侠还记得。或者有什么其他
更好的方式？

谢谢了。呵呵

 

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-21

• #2

win31标签的DirectoryListBox1不行吗

 

浩

浩毛

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-21

• #3

不行啊，就是想要弹出的标准对话框。

 

V

vine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-21

• #4

Delphi处事的函数：
uses FileCtrl;
var
starget : string;
begin
if SelectDirectory('Select Directory','',starget) then
edttarget.text := starget;
end;

SelectDirectory有两种风格的
一是Win31 一是win95

 

D

DEN

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-21

• #5

你看看 SelectDirectory 这个function 的 help 吧. 望你多看看 delphi 的 help .

 

浩

浩毛

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-21

• #6

呵呵，我知道看帮助啊，不过没找到。呵呵。谢谢了

 

飘

飘摇客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-21

• #7

引用ShlObj单元，然后
procedure TForm1.Button1Click(Sender: TObject);
var
bi:TBrowseInfo;
begin
bi.hwndOwner:=Handle;
bi.pidlRoot:=nil;
bi.pszDisplayName:=PChar(GetCurrentDir);
bi.lpszTitle:='请选择一个对话框：';
bi.ulFlags:=1;
SHBrowseForFolder(bi);
end;