简单问题

Question

请问各位，Delphi中如何调用象安装程序中所出现的“浏览”按钮，用户选择指定的目录后，即返回目录字符串，不用也不要选择目录下的具体文件名，也不用返回具体的文件名？谢谢

Answer 1

在界面上加一个opendialog取名opd1，一个edit取名edtpath，一个BitBtnprocedure Tfmpicpath.BitBtn1Click(Sender: TObject);
begin
 if opd1.Execute then
//ExtractFilePath
edtpath.Text:=ExtractFilePath(opd1.FileName);end;

Answer 2

程序运行后，打开一个目录，随便选择目录下的一个文件，点bitbtn，就可以取到这个目录。

Answer 3

引用单元
uses FileCtrl;procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: string;
begin
    Dir := 'C:\'; //初始路径,从C盘搜索
    if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],1000) then
    edit1.Text := Dir;
end;