Drop aus Thunderbird

[Bomberbb]

Hi, ich nutze folgenden DragnDrop:

Delphi-Quellcode:

Procedure TForm5.FormCreate(Sender: TObject);
begin
  DragAcceptFiles(Handle, True);
end;

Procedure TForm5.WMDROPFILES(Var Msg: TMessage);
Var
  i, count, size              : Integer;
  filename                    : PWideChar;
  ziel                        : WideString;
Begin
  Inherited;
  filename:=#0;
  count := DragQueryFileW(Msg.WParam, $FFFFFFFF, filename, 255);
  For i := 0 To count - 1 Do
  Begin
    size := DragQueryFileW(Msg.WParam, i, Nil, 0) + 1;
    filename := StrAllocW(size);
    Try
      DragQueryFileW(Msg.WParam, i, filename, size);
 
      CopyFileW(FileName, pwidechar(Ziel), False);
   
    Finally
      StrDisposeW(filename);
    End;
  End;
  DragFinish(Msg.WParam);
End;

Das funtioniert beim DragnDrop aus dem Explorer auch wunderbar. Nur leider aus dem Thunderbird nicht. Und dafür wollte ich es hauptsächlich nutzen.

Hat jemand eine Idee???

Gruß

BBB