Ich habe es gerade mal getestet...
Delphi ist so blöd, dass es in der
DPr CreateForm calls nicht in If-clauses oder ähnlichem akzeptiert.
Man _muss_ es anscheinend in eine extra
Unit packen ...
Delphi-Quellcode:
unit Unit3;
interface
uses
Forms,
Unit1 ,
Unit2 ;
procedure openForms;
implementation
procedure openForms;
begin
if (ParamCount > 0)
and (ParamStr(1) = '
1')
then
Application.CreateForm(TForm1, Form1)
else
Application.CreateForm(TForm2, Form2);
end;
end.
damit man dann das hier ...
Delphi-Quellcode:
Application.Initialize;
openForms;
Application.Run;
... ausführen kann.
Ich weiß schon, warum ich keinen Bock mehr auf Borlands buggy IDEs habe. 