delphi 调用浏览文件夹 SelectDirectory

本文整理自网络，侵删。

 
单元：Vcl.FileCtrl

var
  StoreDir: String;
begin
  if (SelectDirectory('Select output directory', '', StoreDir)) then begin
    EditDestDir.Text := StoreDir+'\';
  end;
 

相关阅读 >>

crc16.pas

Delphi中txmldocument控件的用法

Delphi 用wininet 单元实现 post提交数据

Delphi idhttp实现get方法下载文件，断点续传

Delphi 的webbrowser如何全选并复制浏览器上的文字

Delphi memo 自动滚动到最底下

Delphi 获取网页代码单元

Delphi编程实现sql server挂起清除

Delphi 从流数据获知文件类型

Delphi 6句代码实现Delphi动态调用api函数

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 调用浏览文件夹 SelectDirectory