Mega Code Archive

 

Categories / Delphi / Forms

 

Call Browse for Folder dialog

Title: Call Browse for Folder dialog Following procedure can call the Browse for Folder dialog. uses FileCtrl; ... procedure TMainfrm.Button1Click(Sender: TObject); var St: string; begin St:='c:\'; if SelectDirectory(St,[],0) then Label1.Caption:=St; end;