Parameter-Verarbeitung in Program-Unit

[marabu]

Hallo Nicolai,

du könntest es in deiner Projektdatei so versuchen:

Delphi-Quellcode:

var
  param: string;
begin
  if ParamCount = 0 
    then param := ''
    else param := Uppercase(ParamStr(1));
  if param = '-SERVER' 
    then Application.CreateForm(TServer, Server) 
    else Application.CreateForm(TStartForm, StartForm); 
  ...
end;

Grüße vom marabu