Die Icons werden in unregelmässigen Abständen geändert.
Je nach Stellung einer TTrackbar ändert sich das Icon in der
TNA.
Es gibt 6 Stück davon xx0-5.ico und die werden jetzt halt per Loadfromfile geladen.
Delphi-Quellcode:
procedure TForm1.ChangeTrayIcon(a:integer);
var name:pwidechar;
begin
name := PChar('sound'+inttostr(a)+'.ico');
hMainIcon:= LoadImage (hInstance , name , IMAGE_ICON,16,16,LR_LOADFROMFILE); //laden
NID.hIcon := HMainIcon; // und zuweisen
Shell_NotifyIcon(NIM_MODIFY, @NID); // Modify melden
end;
Wie packe ich die jetzt eleganter (bzw. in die exe) rein?
Stefan
Jedoch kann die referenzbasierte Implementierung des Standard-Objektmodells in Kombination mit den komplexen syntaktischen Dereferenzierungsregeln bei einer objektorientierten
API wie ein Stolperstein wirken.
