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