Handle eines TNA-Icons finden, wenn ich das QuickInfo kenne

[Tubos]

Hallo!

Hier im Forum habe ich jede Menge Code zum Thema TNA gefunden und kann jetzt so ziemlich alles damit machen
Dazu benötige ich jedoch das Handle.
Ist es möglich, das Handle eines Tray-Icons herauszufinden, wenn ich die QuickInfo kenne, die beim drüberfahren mit der Maus erscheint?

mfg. Tubos

[toms]

Hi,

Es gibt keine dokumentierte Möglichkeit, auf die TrayIcons zuzugreifen.

Hier findest du aber eine Möglichkeit:

Beschreibung
http://help.madshi.net/TrayIcons.htm

Download:
http://madshi.bei.t-online.de/madCollection.exe

[Tubos]

danke!

Hab ich mir runtergeladen + installiert. Welche Unit muss ich verwenden, um die Funktionen zu haben?
Und woher krieg ich die überhaupt? bei dem installierten zeug war das irgendwie nicht dabei

[toms]

Hi,

Musst nur die madKernel Unit in die Uses-Klausel aufnehmen:

Delphi-Quellcode:

uses 
  madKernel;

Das zeigt dir z.B die Anzahl TrayIcons an:

MessageBox(0, PChar('Es gibt ' + IntToStr(TrayIcons.ItemCount) + ' Tray Icons'), 'info', 0);; Das zeigt dir z.B den Hint des 1. TrayIcons an:

TrayIcons[0].Hint

[Tubos]

Danke!
Und wo krieg ich die madkernel.dcu her?
Hab Madkernel installiert, es ist auch ein Ordner Madkernel da, und unter madcollection\madbasic\sources ist auch jede menge, madkernel.dcu oder .pas ist aber nicht dabei.

edit:
ich muss nicht die unit madkernel, sondern madbasic verwenden.
Wie kompiliert man eine Unit?
Wenn ich "Datei --> dem Projekt hinzufügen" anwähle und dann kompilieren, kommen diverse Fehlermeldungen.
Kann ich die Unit irgendwie extra als .dcu kompilieren? hab mit units nämlich nicht so viel erfahrung und die delphi-hilfe hat mir auch nicht weitergeholfen.

edit2: siehe anhang

[toms]

Zitat:

ich muss nicht die unit madkernel, sondern madbasic verwenden.

Nein, du brauchst MadKernel!
Du musst nur MadCollection installieren (bei der Installation MadKernel auswählen!)
und dann

Delphi-Quellcode:

uses
  madKernel;

schreiben. Fertig.

Habe dir ein kleines Demo Projekt zum auslesen der TrayIcons angehängt.

HTH

[Tubos]

Danke Toms!


Ich habe mir die Webseite nochmal angesehen und weiß jetzt, woran es liegt: Die MadComponents funktionieren nur ab Delphi 4

Trotzdem thx!

edit:
hab jetzt delphi 7 und der code funktioniert
leider ist die funktion zum aktualisieren der trayicon-liste sehr langsam und mein programm reagiert für ca. 1 sekunde nicht mehr - das ist sehr lästig wenn man nebenbei was anderes mit demselben programm macht.
aber dazu mach ich nen eigenen thread auf

[Tubos]

(ich glaube, ich kann das jetzt auch hier dazuposten)

Der Code von madkernel ist super, aber langsam.
Wahrscheinlich würde es schneller laufen, wenn man über madcomponents das TNA-Icon-Handle herausfindet, und dann den Hint über die API ausliest.

Meine Fragen dazu:
1) Wie kriegt man über MadComponents das Handle des Icons?
2) Wie kriegt man (am besten über die API) den Hint des Icons, wenn ich das Handle kenne?

Ich habe die Forumssuche verwendet, aber seltsamerweise nichts gefunden.

Tubos

[Cylence]

ich könnte die madcollection auch brauchen, aber der Download geht nicht mehr, kommt man irgendwie noch dran???

Thanks

[Tubos]

Achja, die Frage von oben hat sich schon erledigt... nicht dass jemand auf die Idee kommt jetzt zu antworten