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:

zusammenfalten · markieren

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

SHBrowseForFolder -> Dialog öffnet sich nicht

SHBrowseForFolder -> Dialog öffnet sich nicht

Forumregeln