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
):
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?