OpenDialog hvor jeg kan åbne et katalog?

Du kan hente en komponent til det formål på
http://www.torry.ru/vcl/dialogs/brsdlg14.zip

hvis den ikke er god er der en masse andre på www.torry.ru

Problemet er at der i Delphi ikke er en komponent til det. Det er dog en del af Windows, hvorfor nedenstående kan lave det:

function UserSelectDirectory(title:string; ParentWindow:thandle):string;
var
    Titlename        : string;
    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);
    BrowseInfo.hwndOwner:= ParentWindow;
    BrowseInfo.pszDisplayName:= @DisplayName;
    TitleName:= title; //'Please specify a directory';
    BrowseInfo.lpszTitle:= PChar(TitleName);
    BrowseInfo.ulFlags:= BIF_RETURNONLYFSDIRS;
    lpItemId:= SHBrowseForFolder(BrowseInfo);
    if lpItemId <> nil then
        begin
            SHGetPathFromIDList(lpItemId, TempPath);
            Result:=TempPath;
            GlobalFreePtr(lpItemID);
        end;
end;


Håber det virker for dig...

Æv, min kode var mere forklarende *s*

hehe.. Der er ikke ret meget forklaring i den kode..

Ud af alle de linier er der kun EN kommentar :)

Tjah, det er nu heller ikke nødvendig - du har en funktion med 2 parametre: Titel og hvem parent-vinduet skal være.

Det er vel hvad der skal til *s*