نحوه انتخاب آدرسی مشخص توسط کاربر

[setareban]

با توجه به امکانات بالای نرم افزارهای ساخت setup برای پروژه ها، میخواستم این کار رو از طریق کدنویسی تو خود دلفی انجام بدم.
میدونم خیلی ساده است، ولی تو همین سادگیش یه سوال ساده تر داشتم:
اینکه چه دستور یا کامپوننتی وجود داره که از طریق اون کاربر بتونه آدرس مشخصی رو انتخاب کنه. با توجه به اینکه کامپوننت opendialog فایل مشخصی رو انتخاب می کنه، در صورتی که من میخوام فقط مسیر مشخصی انتخاب بشه. :متفکر:
با تشکر.

[hp1361]

با سلام

http://docwiki.embarcadero.com/CodeExamples/XE3/en/SelectDirectory_%28Delphi%29

http://stackoverflow.com/questions/7422689/selecting-a-directory-with-topendialog

http://delphi.about.com/cs/adptips2002/a/bltip0502_5.htm

[setareban]

خیلی متشکرم جناب «hp1361».
قطعا خیلی از اساتید این بخش این موضوع ساده رو می دانند ولی بنده برای کسانی که نمی دانند کدهاش رو قرار می دم.

uses
FileCtrl;

procedure TForm1.Button1Click(Sender: TObject);
//const
// SELDIRHELP = 1000;
var
chosenDirectory : string;
// dir : string;
begin
// dir : 'C:/';
// if SelectDirectory(dir, [sdAllowCreate, sdPerformCreate, sdPrompt], SELDIRHELP) then
if SelectDirectory('انتخاب مسیر', '', chosenDirectory) then
Label1.Caption := 'نام مسیر یافت شده: ' + chosenDirectory;
end;