Make New Folder

[holyspirit]

با سلام خدمت دوستان !
سوالی که داشتم این بود که آیا در دلفی کادر دیالوگی هست که دگمه Make New Folder رو داشته باشه یا اینکه باید خودمون فرمشو طراحی کرده و بعد روالی هم برای اون تعریف بکنیم ؟

[Felony]

کتابخانه ShlObj رو اضافه کنید و از کد زیر اضافه کنید :

var
BrowseInfo: TBrowseInfo;
begin
FillChar(BrowseInfo, SizeOf(BrowseInfo), 0);
BrowseInfo.ulFlags := BIF_NEWDIALOGSTYLE;
SHBrowseForFolder(BrowseInfo);
end;

[holyspirit]

silversoft عزیز این BrowseInfo ای که نوشتین اگه آدرس Folder ساخته شده است اون آدرسو چطوری باید به رشته اش تبدیل کرد؟

[Felony]

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;