Wenn dies Ihr erster Besuch hier ist,
lesen Sie bitte zuerst die Hilfe - Häufig gestellte Fragen
durch. Sie müssen sich vermutlich registrieren,
bevor Sie Beiträge verfassen können. Klicken Sie oben auf 'Registrieren', um den Registrierungsprozess zu
starten. Sie können auch jetzt schon Beiträge lesen. Suchen Sie sich einfach das Forum aus, das Sie am meisten
interessiert.
Borland stellt in der Delphi-Unit <b>FileCtrl.pas</b> die globale Funktion <b>SelectDirectory</b> zur Verfügung, die den Aufruf der API-Funktion ShBrowseForFolder vollständig einkapselt.
<pre>
function SelectDirectory(const Caption: string; const Root: WideString;
out Directory: string): Boolean;
</pre>
In Delphi ist die Funktion SelectDirectory überladen, so das nur die Parameter-Typen festlegen, welche Ausführung der Funktion verwendet wird. Der folgende Aufruf demonstriert den Einsatz:
<pre>
uses FileCtrl;
procedure TForm1.Button1Click(Sender: TObject);
var
sSelDir : String;
begin
if SelectDirectory('Meine Überschrift', 'C:\', sSelDir) then
ShowMessage(sSelDir);
end;
</pre>
P.S: Es ist immer eine gute Idee, eine API-Funktion zuerst über die Suche-Funktion von Windows im Souce-Verzeichnis von Delphi zu suchen (die Treffer für Windows.pas, Shlobj.pas etc. kann man ja ignorieren). Viele API-Funktionen kapselt Delphi gebrauchsfertig in eigene Funktionen ein.


habe ich das richtig begriffen, du gehst <start> <suchen> im startmenü und da suchst bei dateiinhalte
nach dem befehl und läßt dich überraschen was da kommt?????????????!!!!!!!!!!!!!
inzwischen habe ich daheim in einem buch einen quellcode entdeckt wie man die funktion<br>
ShBrowseForFolder aufruft. und der funktioniert sogar!!!!!!!!!!!!!!
<p>Hallo Markus,<br>
<br>
so wie es Andreas beschrieben hat, mache ich es auch. Da das Hilfesystem von Delphi aus unerfindlichen Gründen,<br>nie das Stichwort findet, das man sucht, bleibt einem normalerweise<br>nur dieser Weg übrig.<br>
<br>
Gruß Thomas</p>
Comment