Auch hier ein Antort von mir. Es gibt mehrere Möglichkeiten den Pfad zu bestimmen:
Delphi-Quellcode:
Var Verzeichnis:string;
begin
Verzeichnis:=GetCurrentDir; //das aktive Verzeichnis
Das Windows-Verzeichnis kann so ermittelt werden (aus der Delphi-Hilfe)
In diesem Beispiel befinden sich ein Eingabefeld und eine Schaltfläche in einem Formular. Beim Klicken auf die Schaltfläche werden das aktuelle und das Windows-Verzeichnis nach dem im Eingabefeld angegebenen Dateinamen durchsucht. Das Ergebnis der Suche wird anschließend in einem Meldungsfenster angezeigt.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
buffer: array [0..255] of char;
FileToFind: string;
begin
GetWindowsDirectory(buffer, SizeOf(buffer));
FileToFind := FileSearch(Edit1.Text, GetCurrentDir + ';' + buffer);
if FileToFind = '' then
ShowMessage('Datei ' + Edit1.Text + ' nicht gefunden.')
else
ShowMessage('Datei ' + FileToFind + ' gefunden.');
end;
[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]