Durchsuchen von Dateien

[markus5766h]

Hallo,

ForceDirectories([dein Programmverzeichnis]+'\'+[dein Unterverzeichnis]); ForceDirectories prüft, ob ein Verzeichnis vorhanden ist und erstellt dieses, wenn nicht vorhanden

Dein Programmverzeichnis bekommst Du mit

Delphi-Quellcode:

var
p : array[0..512] of Char;
begin
ProgDir := StrPas(GetCurrentDirectory(512, P));
.
.
.
end;

Die Variable ProgDir als String in private oder public deklarieren