Moin, also ich hab grad (wieder [!!!]) mal eine Anwendung geschrieben die sich in die TaskBar setzen soll...

Nur diesmal funktioniert es nicht, ich schätze ich hab nen Include vergessen, aber welches? Hier ist mal der Code:

Quellcode:procedure TMainForm.ShowTBIcon(var Icon: TIcon; IconID: Integer; Hint: String);
var
  Struct: TNotifyIconData;
begin
  Struct.cbSize := sizeof(Struct);
  Struct.Wnd := Handle;
  Struct.uID := IconID;
  Struct.CallbackMessage := MSG_IconCallback;
  Struct.hIcon := Icon.Handle;
  Strcopy(Struct.szTip, PChar(Hint)); // Max. 63
  Struct.Flags := NIF_MESSAGE or NIF_ICON or NIF_TIP;
  Shell_NotifyIcon(NIM_ADD, @Struct);
end;

procedure TMainForm.HideTBIcon(var IconID);
var
  Struct: TNotifyIconData;
begin
  Struct.cbSize := sizeof(Struct);
  Struct.Wnd := Handle;
  Struct.uID := IconID;
  Shell_NotifyIcon(NIM_DELETE, @Struct);
end;

procedure TMainForm.WM_IconCallback(var Msg: TMessage);
begin
  if Msg.LParam = WM_LBUTTONDBLCLK then
  begin
    // möp
  end;
end;MSG_IconCallback ist so definiert:Quellcode:MSG_IconCallback = WM_APP + 100;So, nun mag er aber "TNotifyIconData" nicht, und sagr ganz frech das es nen Undefinierter Bezeichner ist =\ deswegen schätze ich auch ne fehlende Iclude.

Hab jetzt leider auch kein Prog zum nachgucken da, weil die Festplatte net bei mir is.. hmpf

Na gut, dürfte aber schnell zu lösen sein, oder? ^^

shielding people from their own stupidity is an evolutionary step backwards anyway.

/* God is dead!............Nietzsche */
/* Nietzsche is dead!......God */
/* Nietzsche is God!.......The Dead */

Frage = Dumm
Antwort = ShellApi

;)

shielding people from their own stupidity is an evolutionary step backwards anyway.

/* God is dead!............Nietzsche */
/* Nietzsche is dead!......God */
/* Nietzsche is God!.......The Dead */