An die Daten von PNotifyIconData herankommen

[helen]

Hallo,

kann ich das Icon aus dem Datensegment PNotifyIconData in ein TImage laden?
Was wird in uCallback, uFlags und uID gespeichert?

Welche Möglichkeit gibt es, das Object von einer dll aus an ein Programm zu senden? Außer per Netzwerk-Socket.

Gruß Helen

[shmia]

Zitat von helen:

kann ich das Icon aus dem Datensegment PNotifyIconData in ein TImage laden?

PNotifyIconData ist eine Datenstruktur (=Record), die deine Anwendung oder DLL bereitstellen muss
um damit die Funktion Shell_NotifyIcon aufzurufen.
Normalerweise wird das Icon mit der Funktion LoadIcon aus den Resourcen der Anwendung/DLL geladen.
Um vom Icon-Handle zum Image zu kommen sind folgende Schritte erforderlich:

Delphi-Quellcode:

var
   i : TIcon;
   h : HICON;
begin
   i := TIcon.Create;
   h := LoadIcon(HInstance, 'MAINICON'); // lade ein Icon(handle)
   i.Handle := h;
   Image1.Picture.Assign(i);  // gib das Icon an das Image
   i.Free;  // wird nicht mehr gebraucht
end;

Zitat von helen:

Was wird in uCallback, uFlags und uID gespeichert?

Das kann man in der Windows-SDK-Hilfe (Stichwort: NOTIFYICONDATA) nachlesen.
Aber eigentlich braucht dich dies garnicht zu interessieren, da es Komponenten gibt,
die das Thema TNA (Task Notification Area) abdecken.
Torry's->Tray Icons

Zitat von helen:

Welche Möglichkeit gibt es, das Object von einer dll aus an ein Programm zu senden? Außer per Netzwerk-Socket.

Wozu??? Wenn du die Icons in einer DLL speichern möchtest, dann gibst du einfach den Parameter
HInstance für die Funktion LoadIcon mit:

Delphi-Quellcode:

  h := LoadLibrary('MyIcons.DLL');
  Iconhandle := LoadIcon(h, 'HAPPYHELEN');

[helen]

Danke, shima!

Zitat:

Wozu??? Wenn du die Icons in einer DLL speichern möchtest, dann gibst du einfach den Parameter
HInstance für die Funktion LoadIcon mit:

Ich brauche die andere Richtung... Ich habe eine DLL, mit der die function Shell_NotifyIcon gehookt wird. Jetzt muss ich aber irgendwie die an diese function übergebenen Daten an mein Programm weiterleiten, welches dann das Icon anzeigen soll.

Wie funktioniert der Transport DLL --> Anwendung am besten?

[shmia]

Zitat von helen:

Ich brauche die andere Richtung... Ich habe eine DLL, mit der die function Shell_NotifyIcon gehookt wird. Jetzt muss ich aber irgendwie die an diese function übergebenen Daten an mein Programm weiterleiten, welches dann das Icon anzeigen soll.

Wie funktioniert der Transport DLL --> Anwendung am besten?

OK, jetzt wirds klarer.
Die DLL muss auf irgendeineweise das Ziel (=deine Anwendung) mitgeteilt bekommen.

Mir fallen im Moment 2 Alternativen ein:
- die DLL bekommt von der Anwendung das Handle des Hauptformulars mitgeteilt und muss diese
in einer globalen Variablen speichern.
die DLL benutzt SendMessage(apphandle, WM_COPYDATA, ...) um die Daten an Hauptformular
zu schicken.

- die DLL bekommt von der Anwendung einen Zeiger auf eine Callback-Funktion mitgeteilt
und muss diesen in einer globalen Variablen speichern.
Sobald der Hook Shell_NotifyIcon auftritt, ruft die DLL die Callback-Funktion auf.
Die Anwendung kopiert die Daten und macht diese sichtbar.
Diese Alternative gefällt mir am Besten, da sie klarer und einfacher ist.
Wenn deine DLL nur von Delphi-Anwendungen geladen werden soll, käme auch eine Callback-Methode
in Frage. (siehe auch Nutzung einer Callback-Funktion innerhalb eines Objekts)

[helen]

Hallo,

wie kann ich denn den Zeiger auf die Callback-Funktion an die DLL übermitteln?

Das installieren des Hooks funktioniert so:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  InjectLibrary(ALL_SESSIONS or SYSTEM_PROCESSES, 'TBNAhook.dll');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  UninjectLibrary(ALL_SESSIONS or SYSTEM_PROCESSES, 'TBNAhook.dll');
end;

der Hook selbst sieht so aus:

Code:

library TBNAhook;

uses
  Windows,
  madRemote,
  madCodeHook,
  madStrings,
  ShellAPI,
  dialogs;

var Shell_NotifyIcon : function (dwMessage: DWORD; lpData: PNotifyIconData) : bool; stdcall;
var Shell_NotifyIconA : function (dwMessage: DWORD; lpData: PNotifyIconData) : bool; stdcall;
var Shell_NotifyIconW : function (dwMessage: DWORD; lpData: PNotifyIconData) : bool; stdcall;


function MY_NotifyIcon (dwMessage: DWORD; lpData: PNotifyIconData): BOOL; stdcall;
begin
  ShowMessage (lpData.szTip);
  //Form1.AddIcon (dwMessage, @lpData);


  result := true;
end;

function MY_NotifyIconA (dwMessage: DWORD; lpData: PNotifyIconData): BOOL; stdcall;
begin
  ShowMessage (lpData.szTip);
  //Form1.AddIcon (dwMessage, @lpData);

  result := true;
end;

function MY_NotifyIconW (dwMessage: DWORD; lpData: PNotifyIconData): BOOL; stdcall;
begin
  ShowMessage (lpData.szTip);
  //Form1.AddIcon (dwMessage, @lpData);

  result := true;
end;

begin
  HookAPI('shell32.dll', 'Shell_NotifyIcon', @MY_NotifyIcon, @Shell_NotifyIcon);
  HookAPI('shell32.dll', 'Shell_NotifyIconA', @MY_NotifyIconA, @Shell_NotifyIconA);
  HookAPI('shell32.dll', 'Shell_NotifyIconW', @MY_NotifyIconW, @Shell_NotifyIconW);
end.

Ich habe nun versucht, das Icon aus PNotifyIconData mit

Code:

tmp := TIcon.Create;
tmp.Assign (lpData.hIcon);

ImageIndex := ImageList1.AddIcon (tmp);

in eine ImageList einzufügen, aber das läuft nicht...

[shmia]

Zitat von helen:

Ich habe nun versucht, das Icon aus PNotifyIconData mit

Code:

tmp := TIcon.Create;
tmp.Assign (lpData.hIcon);

ImageIndex := ImageList1.AddIcon (tmp);

in eine ImageList einzufügen, aber das läuft nicht...

Das müsste aber so heissen:

Delphi-Quellcode:

tmp := TIcon.Create;
try
  tmp.Handle := lpData^.hIcon;  // <===
  ImageIndex := ImageList1.AddIcon(tmp);
  if ImageIndex=-1 then    // auf jeden Fall prüfen, damit man weiss was Sache ist
     ShowMessage('AddIcon failed !');  // anzeigen oder sonstwie protokollieren
finally
  tmp.Free;
end;

Zitat von helen:

wie kann ich denn den Zeiger auf die Callback-Funktion an die DLL übermitteln?

Nach einigem Nachdenken bin ich zu dem Schluss gekommen, dass eine Callback-Funktion
wohl nicht richtig funktionieren kann:
Deine DLL wird an die DLL Shell32.dll "angeklemmt" und arbeitet somit in verschiedenen
Processräumen (getrennter Speicher).
Also muss deine DLL die Anwendung finden. (Also doch mit FindWindow gefolgt von SendMessage arbeiten)

[helen]

Ich habe jetzt wie folgt versucht die Daten von der DLL an die Anwendung weiterzuleiten:

DLL:

Code:

type
  TBNApaket = record
     msg : DWord;
     Data : PNotifyIconData;
  end;

...

function SendData (paket : TBNApaket) : Boolean;
  var aCopyData: TCopyDataStruct;
begin
  with aCopyData do begin
    dwData := 0;
    cbData := Sizeof (paket);
    lpData := @paket;
  end;

  SendMessage(FindWindow('TX11TBNA', nil), WM_COPYDATA, ??Was muss hier herein??, Longint(@aCopyData));
end;

function MY_NotifyIcon (dwMessage: DWORD; lpData: PNotifyIconData): BOOL; stdcall;
  var tmp : TBNApaket;
begin
  tmp.msg  := dwMessage;
  tmp.Data := lpData;

//  ShowMessage (lpData.szTip);
  SendData (tmp);

  result := true;
end;

Anwendung:

Code:

procedure TX11TBNA.WMCopyData(var Msg: TWMCopyData);
  var tmp : TBNApaket;
begin
  tmp := (Msg.CopyDataStruct.lpData) as TBNApaket;    ??Wie kann ich den zugesandten Pointer wieder einem TBNA Record übergeben??
end;

Gruß Helen

[helen]

Nachdem die Datenübertragung nun einigermaßen funktioniert gibt es Probleme beim Auspacken des Icons:

Code:

function TX11TBNA.ImgList_AddIcon (HIcon : HIcon) : Integer;
  var tmp : TIcon;
begin
  tmp := TIcon.Create;
  try
    tmp.Handle := hIcon;  // <===
    result := ImageList1.AddIcon(tmp);
    if result=-1 then    // auf jeden Fall prüfen, damit man weiss was Sache ist
       ShowMessage('AddIcon failed !');  // anzeigen oder sonstwie protokollieren
  finally
    tmp.Free;
  end;
end;


procedure TX11TBNA.WMCopyData(var Msg: TWMCopyData);
  var tmp: TBNApaket; lPtmp: ^TBNApaket;

      lpmsg : DWord;
      lpData : PNotifyIconData;
begin
  lptmp := Msg.CopyDataStruct.lpData;
  tmp := lptmp^;

  lpmsg  := tmp.msg;
  lpdata := @tmp.Data;

  AddIcon (lpmsg, lpdata);
end;


function TX11TBNA.AddIcon (dwMessage: DWORD; lpData: PNotifyIconData) : Boolean;
  var i, imgpos : Integer; tmp : TIcon;
begin
  imgpos := -1;
  For i := 0 to Listview1.Items.Count-1 do
      if (StrToInt (Listview1.Items[i].SubItems[0]) = lpData.Wnd) and
         (StrToInt (Listview1.Items[i].SubItems[1]) = lpData.uID) then
         imgpos := I;

  if dwMessage = NIM_ADD then begin
     ShowMessage ('ADD');

     If imgpos < 0 then
        with Listview1.Items.Add do begin
              ImageIndex := ImgList_AddIcon (lpData.hIcon);
              Caption := lpdata.szTip;
              SubItems.Add (IntToStr(lpdata.uID));
              SubItems.Add (IntToStr(lpdata.Wnd));
        end;
  end
  else

  if dwMessage = NIM_MODIFY then begin
     ShowMessage ('Modify');

     If imgpos > -1 then
        with ListView1.Items [i] do begin
             ImageIndex := ImgList_AddIcon (lpData.hIcon);
             Caption := lpdata.szTip;
             SubItems.Add (IntToStr(lpdata.uID));
             SubItems.Add (IntToStr(lpdata.Wnd));
        end
     else
         with Listview1.Items.Add do begin
              ImageIndex := ImgList_AddIcon (lpData.hIcon);
              Caption := lpdata.szTip;
              SubItems.Add (IntToStr(lpdata.uID));
              SubItems.Add (IntToStr(lpdata.Wnd));
        end;
  end
  else

  if dwMessage = NIM_DELETE then begin
     ShowMessage ('Delete');

     If imgpos > -1 then
        ListView1.Items.Delete (imgpos);
  end

  else ShowMessage ('Command not found!');
end;

In der function ImgList_AddIcon scheint Imagelist1.AddIcon immer -1 zurückzugeben... Warum?

[mirage228]

Hi,

ich würde den Parameter in der Prozedur

ImgList_AddIcon (HIcon : HIcon) : Integer; nicht hIcon nennen, da der Typ schon so heisst.

Ansonsten könntest du noch prüfen, ob der Parameter <> 0 ist.

mfG
mirage228

[helen]

Hab das Hicon nun in bicon umbenannt, wie vorgeschlagen. Das Problem ist jedoch, dass bIcon = -1 ist. Wieso?