[Autostart] Windowsstart->Tray, sonst->Form.Show

[calculon]

Hi zusammen,

ich stehe vor folgendem Problem. Ein Programm soll beim Windowsstart mitgestartet werden (ohne sichtbare Forms). Dafür schicke ich es in den SysTray, was soweit auch funktioniert. Dass das Programm beim Starten im Tray ist, soll aber nur geschehen, wenn es automatisch beim initialen Windowsstart geöffnet wird. Ansonsten sollte es ganz normal mit sichtbarer Form gestartet werden. Ich weiß' nicht wie ich das machen soll.

Momentan prüfe ich im OnCreate mit Hilfe einer Checkbox (=autostart):

Delphi-Quellcode:

  if autostart.Checked then
    begin
      Application.ShowMainForm := FALSE;
      Tray.Active := TRUE;  { TJvTrayIcon (JVCL) }
    end;

Wie man sieht wird das Programm, wenn es im Autostart steht (autostart.checked), bei jedem Start in den Tray geschickt. Ich will aber, dass das nur beim initialen Windowsstart geschieht. Kann mir da jemand weiterhelfen?

Gruß

Calculon
--