本文整理自网络,侵删。
单元:Vcl.FileCtrl
var StoreDir: String;begin if (SelectDirectory('Select output directory', '', StoreDir)) then begin EditDestDir.Text := StoreDir+'\'; end;
相关阅读 >>
Delphi环境下基于spcomm控件开发串口通讯报文字节丢失的问题解决
更多相关阅读请进入《Delphi》频道 >>