如何获取目录?SelectoryDirectory的界面太丑了,有无其它(界面简洁一点) |
尚未結案
|
hongxing
一般會員 發表:16 回覆:17 積分:6 註冊:2003-03-27 發送簡訊給我 |
|
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
這有兩種 function overload.
function SelectDirectory(const Caption: string; const Root: WideString; out Directory: string): Boolean; overload; function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload;其中第一種比較美觀: uses FileCtrl... //.. procedure TForm1.Button1Click(Sender: TObject); var a: string; begin SelectDirectory('123','c:\',a); end; //.. procedure TForm1.Button2Click(Sender: TObject); var a: string; begin a:='C:\'; SelectDirectory(a, [sdAllowCreate, sdPerformCreate, sdPrompt], 0); end;個人覺得第一種比較好看, 不過不能建立目錄是一個缺點. |
hongxing
一般會員 發表:16 回覆:17 積分:6 註冊:2003-03-27 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |