本文整理自网络,侵删。
单元:Vcl.FileCtrl
var StoreDir: String;begin if (SelectDirectory('Select output directory', '', StoreDir)) then begin EditDestDir.Text := StoreDir+'\'; end;
相关阅读 >>
Delphi 的webbrowser如何全选并复制浏览器上的文字
更多相关阅读请进入《Delphi》频道 >>
本文整理自网络,侵删。
单元:Vcl.FileCtrl
var StoreDir: String;begin if (SelectDirectory('Select output directory', '', StoreDir)) then begin EditDestDir.Text := StoreDir+'\'; end;
相关阅读 >>
Delphi 的webbrowser如何全选并复制浏览器上的文字
更多相关阅读请进入《Delphi》频道 >>
管理员已关闭评论功能...