Programm über Schnellstartleiste starten

[Kunoishi]

ein hallo an die runde und nachträglich ein neues JAHR für euch :-)
meine frage: wie kann ich es angehen, dass mein kleines programm unter anderen über die schnellstartleiste gestartet werden kann.

Ich habe dieses unter anderen bei klicktel gesehen. dort gibt es eine seperate .exe welche in der schnellstartleiste integriert ist und dann das eigentlich programm von dort startet.

wie muß ich so was angehen oder wo finde ich infos darüber.

mfg. kunoishi der anfänger

[ap_computers]

Klick einfach mal in der Schnellstartleiste mit rechts und dann auf Ordner öffnen. Dann siehst du welcher Pfad das ist und dann erstellst du über dein Programm dort eine Verknüpfung.

[daywalker9]

hi!

danke dir auch. Das Zauberwort ist TNOTIFYICONDATA.

Delphi-Quellcode:

const WM_ICONACTION = WM_USER + 100;

procedure CreateIcon(Icon: TIcon; Tip: String);
var 
  IconData : TNOTIFYICONDATA;
begin
  with IconData do begin
     cbSize := sizeof(TNOTIFYICONDATA);
     wnd := self.handle;
     uID := 1;
     uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
     uCallbackMessage := WM_ICONACTION;
     hIcon := Icon.Handle;
     StrPCopy(szTip,Tip);
  end;
  Shell_NotifyIcon(NIM_ADD,@IconData);
end;

Dann kannst du WM_ICONACTION abfangen:

Delphi-Quellcode:

procedure tForm1.WMICONACTION(var message:TMessage);
var MouseCo: Tpoint;
begin
   with message do
     begin
      GetCursorPos(MouseCo);
      // Koordinaten in MouseCo.x und MouseCo.y
      case lParamLo of
       0:; // MouseMove
       WM_LBUTTONDBLCLK   : ;
       WM_RBUTTONUp       :
       PopupMenu1.Popup(MouseCo.x,MouseCo.y);
      end;
     end;
end;