کامپونت مسیرها(فولدرها)

[parhizkar2000]

کسی میدونه کامپونت که فقط فولدرها و درایوها رو نشون میده که شکلش هم در زیر هست چیه و از کجا میشه بدستش اورد.؟

[oghab]

سلام
شاید کامپوننت های مختلفی باشه ( من چون حرفه ای نیستم، نمی دونم)
ولی کامپوننت TShellTreeView مه فکر می کنم تو پالت samples باشه، همین شکلیه!
موفق باشی

[babak869]

عزیزم این کامپوننت نیست بلکه Select Folder Dialog هستش که شما با توابه Api میتونی اونو فراخوانی کنی

[Hamid_PaK]

شاید این هم بدردتون بخوره ...



uses ShlObj;

function BrowseForFolder(const frmHandle:THandle;const Title: string; const Flag: Cardinal): string;
var
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin
Result:='';
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
with BrowseInfo do begin
hwndOwner := frmHandle;
pszDisplayName := @DisplayName;
lpszTitle := PChar(Title);
ulFlags := Flag;
end;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then begin
SHGetPathFromIDList(lpItemID, TempPath);
Result := IncludeTrailingPathDelimiter(TempPath);
GlobalFreePtr(lpItemID);
end;
end;


یا حق !!!

[m-khorsandi]

یونیت FileCtrl دو تا تابع برای انجام این کار داره که هم اسم هستند:
شما از تابعی استفاده کنید که به صورت زیر تعریف شده:


function SelectDirectory(const Caption: string; const Root: WideString; out Directory: string)


مثال:


var
OutDir: String;
begin
SelectDirectory('Select Folder', 'C:\', OutDir);
end;

[parhizkar2000]

تشکر از همه دوستان