Drag&Drop von Dateien auf TrayIcon

**der_kumpel**

Ich führe hier mal eine spezielle Frage zum CoolTrayIcon weiter:

Mein Problem ist, dass ich gerne per Drag&Drop eine Datei
(oder auch mehrere) aus dem Windows-Explorer auf mein TrayIcon
ziehen möchte, damit ich diese analysieren kann.

Auf meine Frage hat

toms in

diesem Tutorial für das CoolTrayIcon diesen

Link gepostet.

Jetzt hab ich aber ein Problem den ganzen Spaß umzusetzen:

Die function auf der Seite, die das WindowHandle sucht,
hab ich glaub ich soweit erfolgreich in Delphi umgesetzt
(war gar nicht so schwer wie ich gedacht hatte

):

zusammenfalten · markieren

Delphi-Quellcode:

			function FindTrayHWND: hWnd;

var

  MyhWnd: hWnd;

begin

  MyhWnd:=FindWindow('Shell_TrayWnd', nil);

  if (MyhWnd <> 0) then

    begin

      MyhWnd:=FindWindowEx(MyhWnd, 0, 'TrayNotifyWnd', nil);

      if (MyhWnd <> 0) then

        begin

          MyhWnd:=FindWindowEx(MyhWnd, 0, 'SysPager', nil);

          if (MyhWnd <> 0) then

            begin

              MyhWnd:=FindWindowEx(MyhWnd, 0, 'ToolbarWindow32', nil);

            end;

        end;

    end;

  result:=MyhWnd;

end;

Aber wie gehts jetzt weiter?

Drag&Drop von Dateien auf TrayIcon

Drag&Drop von Dateien auf TrayIcon

Forumregeln