Make New Folder [بایگانی] - برنامه نویس

holyspirit

سه شنبه 15 دی 1388, 13:32 عصر

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

مجتبی تاجیک

سه شنبه 15 دی 1388, 14:38 عصر

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

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

holyspirit

سه شنبه 15 دی 1388, 16:16 عصر

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

مجتبی تاجیک

سه شنبه 15 دی 1388, 16:37 عصر

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;