Danke schonmal für die Tipps. Die fldrbrowser-
Unit sieht schonmal gut aus, wegen der Filterfunktion. Bei mir funktioniert das Teil leider nicht - Es öffnet sich gar kein Dialog. Intern ist pidlResult sofort auf Nil.
Mein Aufruf:
Code:
procedure TForm2.BitBtn1Click(Sender: TObject); //Dialog für die Pfadsuche oeffnen
var
fb:TFolderBrowser;
hwndDlg: HWnd;
begin
fb := TFolderBrowser.Create(hwndDlg,'Bitte wählen Sie einen Ordner',edit4.text,FALSE,FALSE );
if(
fb <> nil) then
try
if(
fb.Execute) then begin
Verzeichnis:=
fb.SelectedItem;
Edit4.Text:=Minimizename(Verzeichnis+'\',canvas,edit4.width);
ComboBox1.Setfocus;
if Verzeichnis [length(Verzeichnis)]<>'\' then Verzeichnis:=Verzeichnis+'\';
end;
finally
fb.Free;
end;
end;
Mein Hauptproblem is aber eh die Beschriftung der Tasten und des Fensters selber - und das WindowCaption ist eben nicht lpszTitle.
@Christian Seehase - ja, ich habe bereits die Suchfunktion mit SHBrowseForFolder benutzt, aber ich fand keine Lösung für mein Problem
