Tweet
kann mir jemand einen beispielcode geben wie den befehl<br>
ShBrowseForFolder aufrufe und das ausgewählte verzeichnis herausfinde!!!
mfg
markus
ShBrowseForFolder aufrufe und das ausgewählte verzeichnis herausfinde!!!
mfg
markus
-
-
Hallo Markus,
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.

 -
tag andreas,
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!!!!!!!!!!!!!!
mfg
markuComment
-
<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
-
Comment