关于opendialog!

[tanxj]

我想叫用户指定一个需要打开的目录，而不用指定一个文件。这个怎样做？

[Snakeguo]

SelectDirectory

[chechy]

uses FileCtrl;

const
SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
Dir := 'C:\MYDIR';
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
Label1.Caption := Dir;
end;

[renzhm]

每次打开：
OpenDialog1.InitialDir：=path

[ilang]

up

[foreveryday007]

var
sPath:string;
begin
edtPath.SetFocus;
if SelectDirectory('請選擇路徑',#13,spath) then edtPath.Text:=sPath;
end;

[xunji]

设置对话框的INITIALDIR属性
如
opendialog1.initaldir:='C:'