Einzelnen Beitrag anzeigen

Benutzerbild von markus5766h
markus5766h

Registriert seit: 5. Mär 2009
Ort: Hamburg
569 Beiträge
 
Delphi XE8 Professional
 
#22

Re: Durchsuchen von Dateien

  Alt 2. Jun 2009, 12:17
Zitat von Luckie:
Zitat von markus5766h:
Dein Programmverzeichnis bekommst Du mit
Delphi-Quellcode:
var
p : array[0..512] of Char;
begin
ProgDir := StrPas(GetCurrentDirectory(512, P));
.
.
.
end;
Wie oft denn noch. GetCurrentDirectory liefert nicht das anwendungsverzeichnis, sondern das aktuelle Verzeichnis. Das kann das Anwendungsverzeichnis sein, muss aber nicht.

Den Pfad inklusive Name der Exe-Datei bekommt man mit Delphi-Referenz durchsuchenParamStr.
O.K.
GetCurrentDirectory funktioniert nur korrekt im Ereignis On Create, da sich
im weiteren Programmverlauf das aktuelle Arbeits-Verzeichnis ja schon geändert
haben kann
Markus H.
  Mit Zitat antworten Zitat