Probleme mit dem OnCreate-ereigniss (close, TNA)...

[GimbaR]

Moin, hab mal wieder nen problem...
Ich habe versucht in dem OnCreate-ereignisses meines Programms, 1. es zu schließen, wenn CheckBox1 ausgewählt ist und mein programm schon einmal vorhanden ist (CheckBox1.Checked wird aus einer .ini gelesen), 2. es in die TNA zu schieben (die procedure dafür heißt "GoToTray" und funktioniert einwandfrei) und 3. soll überprüft werden, ob der erste Parameter in der .ini vorhanden ist.
Alle drei Stichpunkte funktionieren nicht. Beim ersten passiert nichts, bein Nummer 2 wird zwar soweit alles von GoToTray ausgeführt (bis auf, dass die MainForm verschwindet) und bei drittens kommt die fehlermeldung, dass "nicht genügend wirkliche Parameter" vorhanden sind.
So, hier mal die proceduren 8in chronologichser reihenfolge aus meinem Programm)

Delphi-Quellcode:

procedure TForm1.GoToTray;
var
  i: Integer;
  NewItem: TMenuItem;
begin
  SaveConfig;
  CoolTrayIcon1.ShowBalloonHint('Einstellungen gespeichert',
        'Die Einstellungen wurden erfolgreich gespeichert.',
        bitNone, 10);
  Timer1.Enabled:=true;
  PopupMenu1.Items.Clear;
  NewItem:=TMenuItem.Create(PopupMenu1);
    PopupMenu1.Items.Add(NewItem);
    NewItem.Caption:=('Scannen');
    NewItem.OnClick:=PopupItemClickScan;
  NewItem:=TMenuItem.Create(PopupMenu1);
    PopupMenu1.Items.Add(NewItem);
    NewItem.Caption:=('-');
  for i:= 0 to ComboBox1.Items.Count-2 do
  begin
    gamename:=ComboBox1.Items[i];
    NewItem:=TMenuItem.Create(PopupMenu1);
    PopupMenu1.Items.Add(NewItem);
    NewItem.Caption:=(gamename);
    NewItem.OnClick:=PopupItemClick;
  end;
  NewItem:=TMenuItem.Create(PopupMenu1);
    PopupMenu1.Items.Add(NewItem);
    NewItem.Caption:=('-');
  NewItem:=TMenuItem.Create(PopupMenu1);
    PopupMenu1.Items.Add(NewItem);
    NewItem.Caption:=('Eintellungen');
    NewItem.Default:=true;
    NewItem.OnClick:=PopupItemClickOptions;
  NewItem:=TMenuItem.Create(PopupMenu1);
    PopupMenu1.Items.Add(NewItem);
    NewItem.Caption:=('Hilfe');
    NewItem.OnClick:=PopupItemClickHelp;
  NewItem:=TMenuItem.Create(PopupMenu1);
    PopupMenu1.Items.Add(NewItem);
    NewItem.Caption:=('Beenden');
    NewItem.OnClick:=PopupItemClickExit;
  Application.Minimize;
  CoolTrayIcon1.PopupMenu:=PopupMenu1;
  CoolTrayIcon1.HideMainForm;
end;

{..}

procedure TForm1.FormCreate(Sender: TObject);
begin
  ReadMainConfig;
  EnableComboBox;
  Button7.Enabled:=false;
  GetProcessList(Listbox1.Items);
  if ParamCount>0 then begin
    ini:=TInifile.Create(ExePath+'\config.ini');
    try
      if ini.ValueExists('Games', paramstr(1)) then gamename:=ini.ReadString('Games', paramstr(1));
      if ini.ValueExists('Programs', paramstr(1)) then gamename:=ini.ReadString('Programs', paramstr(1));
    finally
      ini.free;
    end;
    StartGame;
  end else gamename:='mist';
  ShowMessage(gamename);
  CoolTrayIcon1.IconVisible:=true;
  //#ToDo2 Minimiert starten...
  GoToTray;
  //#ToDo1 Nur eine Instanz...
  if (CheckBox2.Checked) AND (ListBox1.Items.IndexOf(ExtractFileName(paramstr(0)))<>-1) then close;
end;

Die Variable gamename ist eine für die MainForm globale Variable und wird für die procedure StartGame gebraucht.
Ich habe noch zusätzlich mal mein Projekt geuppt...
mfg GimbaR

[himitsu]

1) Du weißt ja ... 3 Fragen = 3 Beiträge.

2) zum 1. Problem
in onCreate kann man nicht so einfach wieder beenden - frag am Besten vorher in deione Projektdatei (DPR) ob dein Programm gestartet werden soll und wenn nicht, dann überspring einfach das erstellen und laden des Forulars...


z.B.:

Code:

Begin
[color=red]  ...
  If ProgrammStarten = True Then Begin[/color]
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
[color=red]  End;[/color]
End.