在delphi中,選擇乙個資料夾的操作主要有兩種方法。一種是通過「開啟」對話方塊(opendialog)控制項,通過定位乙個檔案來間接實現。另一種是利用delphi提供的selectdirectory函式。這個函式是在filectrl單元中定義的。
第二種方法還有乙個附加的好處,它可以使用root引數限定根目錄的位置,並且不能再向上返回。
示例**如下:
usesfilectrl;
procedure
tform1.button3click(sender: tobject);
varstrcaption,strdirectory:string;
wstrroot:widestring;
begin
strcaption:='
這是瀏覽資料夾的說明文字,可以根據需要進行書寫。
' +#13#10+'
一般二行文字就滿了。';
//該引數是瀏覽資料夾視窗的顯示說明部分
wstrroot:='
d:\greensoft';
//這個引數表示所顯示的瀏覽資料夾視窗中的根目錄,預設或空表示「我的電腦」。
selectdirectory(strcaption,wstrroot,strdirectory);
label1.caption:=strdirectory;
//傳遞結果,其中引數strdirectory表示函式的返回值
label1.refresh;
end;
delphi 選擇資料夾,路徑選擇,瀏覽資料夾
選擇資料夾,路徑選擇,資料夾資源管理器 推薦 selectdirectory vcl.filectrl.hpp if selectdirectory 請選擇目錄 daopath selectdirectory include filectrl.hpp const seldirhelp 1000 vo...
delphi之選擇資料夾路徑 選擇檔案路徑
一 opendialog選擇檔案路徑 procedure tform4.but2click sender tobject varchobak topendialog begin chobak topendialog.create nil if chobak.execute then begin sh...
Delphi 資料夾操作
uses shellapi 建立資料夾 procedure tfrmmain.cxbutton1click sender tobject begin createdirectory pchar extractfilepath paramstr 0 microblue nil end 刪除資料夾,放到...