SHBrowseForFolder -> Dialog öffnet sich nicht

[Lord_Stifterl]

Hallo alle zusammen,

hab ein wenig Probleme mit SHBrowseForFolder bzw. der Klasse BrowseForFolderCls welche ich von luckie-online heruntergeladen habe. So sieht der Code aus:

Delphi-Quellcode:

procedure TfMain.SBOpenInstallDir2Click(Sender: TObject);
var fb: TFolderBrowser;
    hwndDlg: HWnd;
begin
        fb := TFolderBrowser.Create(hwndDlg,'Ordner auswählen','C:\',False,True);
        if(fb <> nil) then
        try
          if(fb.Execute) then
                eInstallDir2.Text := fb.SelectedItem;
        finally
          fb.Free;
        end;
end;

Kann mir eventuell jemand erklären warum sich der Dialog nicht öffnet? Der Code sollte IMHO stimmen.

LG