Problem mit Parameter

[phlux]

ist eigentlich ganz einfach:

Delphi-Quellcode:

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

var
  param: String;

begin
  param := Copy(ParamStr(1),1,Length(ParamStr(1)));
  if UpperCase(param) = 'FORM1' then
  begin
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  else if UpperCase(param) = 'FORM2' then //Angenommen unsere andere Form hieße Form2 dann...
  begin
    Application.Initialize;
    Application.CreateForm(TForm2, Form2);
    Application.Run;    
  end;
end.