سوال: درخواست کامپوننت dialog folder brows [بایگانی]

nickandish

سه شنبه 24 اسفند 1389, 08:02 صبح

سلام دوستان .
من به کامپوننت folder brows نیاز دارم . که در جاهای مختلفی استفاده می شود . مثلا موقعی که یک برنامه رو می خوایم نصب کنیم برای تعیین فولدر نصب از اون استفاده میشه . یک نمونه برای دلفی 6 پیدا کردم که جواب می داد ولی الان از rad studio 2010 استفاده می کنم که اون جا نسخه 6 قابل استفاده نیست و هر چقدر هم که در وب سرچ کردم چیزی پیدا نکردم .
ممنون میشم اگر چیزی سراغ دارین سریع منو راهنمایی کنید . چون شدیدا بهش نیاز دارم
باز هم سپاس

Felony

سه شنبه 24 اسفند 1389, 16:10 عصر

نیازی به کامپوننت نیست ، کتابخانه ShlObj رو به Uses اضافه و از کد زیر استفاده کنید :

var
BrowseInfo: TBrowseInfo;
PIDL : PItemIDList;
Dir: Array [0..255] of Char;
begin
FillChar(BrowseInfo, SizeOf(BrowseInfo), 0);
BrowseInfo.ulFlags := BIF_NEWDIALOGSTYLE;
PIDL := SHBrowseForFolder(BrowseInfo);
ShGetPathFromIDList(PIDL,Dir);
ShowMessage(Dir);
end;