Minimiert starten...

[GimbaR]

Zitat von Golze:

habe die gerade die zweitbeste Lösung gelesen mit
Application.ShowMainForm := False
Nachteil: Das OnShow-Ereignis - in dem erst das komplette Handle verfügbar ist - wird nicht mehr durchlaufen. Alternativen wären

Delphi-Quellcode:

...
Const
  ShowArray: array [Boolean] of Integer = (sw_showNormal, sw_Hide);
begin
  if not (csDesigning in ComponentState) then
    ShowWindow(Application.Handle, ShowArray[FHideTask]);
...

oder auch nicht zu verachten mit CreateParams(..).

richtig gut finde ich aber

Delphi-Quellcode:

program project1;
uses
  Forms;
{$R *.RES}

begin
  Application.Initialize;
  Application.Run;
end;

Keine Form mehr da. Einfach weg; nix mehr Form anzeigen und ärgern.
kay

Kannst du mir das erste Bsp genauer erklären, plz, hab kA woarauf du hinaus willst, bzw wo ich das einbinden soll...
Hab das mal so versucht, hat abba auch net geklappt (ganuso wenig wie das Einfügen der Zeile Application.Minimize:=false; im OnCreate-ereigniss der MainForm)

Delphi-Quellcode:

program GB;

uses
  Forms, IniFiles, SysUtils, Dialogs,
  main in 'units\main.pas' {Form1},
  Unit2 in 'units\Unit2.pas' {Form2};

{$R *.res}

var
  ini: TIniFile;

begin
  Application.Initialize;
  Application.Title := 'GameBuster';
  Application.HelpFile := 'E:\sonstiges\Eigene Dateien\CODE\Delphi\GB.beta\GameBuster-help.chm';
  ini:=TInifile.Create(ExtractFilePath(ParamStr(0))+'\config.ini');
    try
      if ini.ReadBool('Options', 'StartMinimized', false)=true then Application.ShowMainForm:=false;
    finally
      ini.free;
    end;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.