Programmpath

[Frank Reiser]

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]