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

[xaromz]

Hallo,

schau Dir mal meinen ShellDropper an!

Gruß
xaromz

[Bummi]

Ich habe gerade keinen Thunderbird zur Hand, aber was für Files willst Du da "droppen"?

[xaromz]

Hallo,

ich nehme an, er will Anhänge droppen.

Gruß
xaromz

[Bomberbb]

Ja, ich benötige die Anhänge, bzw. deren Pfade...

@xaromz
gibt es da ne Hilfe zu, wie ich was einstellen muss beim shelldropper? Ich bekomme zur Zeit immer noch den MAuszeiger, dass ich dort nichts droppen kann...

[Bomberbb]

Hab jetzt auch mal diese Methode probiert:
http://www.delphipraxis.net/89020-da...t-oeffnen.html

Funzt auch, nur wieder bei Thunderbird nicht.

hier ist der Rückgabewert von dataObj.GetData(aFmtEtc, aStgMed) = E_FAIL...

Läuft da Thunderbird generell falsch?

den shelldropper hab ich nicht zu laufen bekommen....

[Bomberbb]

So, nun läuft auch Shelldropper bei mir, aber NICHT mit Thunderbird.
in
procedure TForm1.ShellDropper1Drop(Sender: TObject; const DropRec: TDropRec); ist DropRec.Files.Count=0

Mal zur Info, ich hab Windows 7/64Bit Delphi 5 und Thunderbird 3.1.7