Jo, xZise,
(Ich glaube ich brauche nicht schreiben, was ich damit meine).
Es funzt super, nur musste ich den Code etwas umändern, als du es vorgeschlagen hast (minimal):
Delphi-Quellcode:
begin
Application.Initialize;
if FileExists(ExtractFilePath(ParamStr(0))+'...') then begin
Application.CreateForm(TForm2, Form2);
end
else begin
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm3, Form3);
end;
Application.Run;
end.
"Die Form mit dem T, also TForm, gehört vor das Komma, das Form ohne T gehört dann hinter das Komma. Und ich musste aus "THEN" --> "THEN BEGIN" machen, aus dem "ELSE" ein "ELSE BEGIN" und die entsprechenden "ENDs" dazufügen. Aber es geht und daswegen nochmal:
mfG
Störtebeker