Forms ausgeblendet starten ?

[thomas2009]

Hallo
ich möchte mein Program über einen Parameter mit einem Link (verknüpfung) alle
Forms ausblenden
Ich folgendes gemacht :

Delphi-Quellcode:

program Project1;

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

{$R *.res}
procedure HideForms;
begin
   Form1.Hide;
   Form2.Hide;
end;

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);

  if Paramstr(1) = 'programhidden' then
  HideForms;

  Application.Run;
end.

end.

Ich habe einen Parameter "programhidden" erstellt

Aufruf :
"C:\Project1.exe" programhidden

Aber das Programm startet trotzdem normal : (

_

[DeddyH]

Versuch es mal mit

Delphi-Quellcode:

Application.ShowMainForm := (ParamCount > 0) and (Paramstr(1) = 'programhidden');

[Apollonius]

Ein not fehlt noch, Deddy.

[DeddyH]

Tatsache! Also so (andersrum):

Delphi-Quellcode:

Application.ShowMainForm := not ((ParamCount > 0) and (Paramstr(1) = 'programhidden'));

[thomas2009]

Danke sehr : )
es hat trotzdem funktioniert ! :firejump:

Delphi-Quellcode:

{$R *.res}
procedure HideForms;
begin
  // Form1.Hide;
 //  Form2.Hide;
 Application.ShowMainForm := (ParamCount > 0) and
 (Paramstr(1) = 'programhidden');
end;

// und so nicht :
Application.ShowMainForm := not ((ParamCount > 0) and 
(Paramstr(1) = 'programhidden'));

[DeddyH]

Das muss ich jetzt nicht verstehen :gruebel:

[thomas2009]

Ich auch nicht
Aber Es funktioniert mit dem 1. Code sehr gut