Einzelnen Beitrag anzeigen

Muetze1
(Gast)

n/a Beiträge
 
#13

Re: Programm beim start als TNA icon ablegen

  Alt 15. Okt 2007, 22:41
Zitat von fuknersascha:
hab mir die funltion mal angeguckt aber das ist auch nicht das was ich meine dein Programm Startet auch sofort. aber es soll ja minimirt unten rechts als icon starten und erst wenn ich drauf drücke aufs icon soll es gross werden.
Nichts leichter als das. Mein Projekt dort folgende Routine ergänzen:
Delphi-Quellcode:
Procedure Tfrm_MainForm.DoCreate;
Begin
  fTaskBarNewReg := RegisterWindowMessage('TaskbarCreated');
  fTaskBarPopupMenuMsg := RegisterWindowMessage('TaskBarPopupMenu');

    // remove for multiple instances
  fInstanceMsg := RegisterWindowMessage('TaskBarIconExampleApp');

  Inherited DoCreate;

    // remove for multiple instances
  SendMessage(HWND_BROADCAST, fInstanceMsg, Handle, 0);

    // >>>> folgendes neu hinzu
  TaskBarAddIcon;
  Application.ShowMainForm := false;
    // <<<< bis hier
End;
Siehe letzte beiden Anweisungen
  Mit Zitat antworten Zitat