所需單元
代碼如下 uses FileCtrl;示例代碼
代碼如下
procedure TForm1.btn1Click(Sender: TObject);
var path:String;
begin
if SelectDirectory('請(qǐng)選擇文件夾','',path) then
ShowMessage(path);
|
新聞熱點(diǎn)
疑難解答
圖片精選
網(wǎng)友關(guān)注