Delphi 7 : Browse For Folder

Browse for folder digunakan untuk memilih direktori yang digunakan untuk path penyimpanan atau path terhadap file. Berikut adalah contoh source untuk melakukan browse for folder dalam delphi 7.

Ada dua macam contoh script dalam pemanggilan Browse ForĀ  Folder, dimana yang satu hanya menunjukkan ke dalam drive atau folder sedangkan model yang lain menampilkan file yang ada pada direktori, untuk lebih jelasnya langsung ke code nya saja


procedure TForm1.Button1Click(Sender: TObject);
var
dirFolder: String;
begin
if SelectDirectory('Choose a directory','',dirFolder) then
Edit1.Text:=dirFolder;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
dirFolder: String;
begin
dirFolder:='C:\';
if SelectDirectory(dirFolder,[sdAllowCreate,sdPerformCreate,sdPrompt],0) then
Edit1.Text:=dirFolder;
end;

Download SourceCode

Comments

  1. Reply

Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>