Drag&Drop aus neuer Outlook APP (pre)

[stalkingwolf]

Jemand schon einmal versucht Drag&Drop aus dem neuen Outlook APP (pre) zu empfangen?
Aktuell nimmt nicht einmal des Windows Desktop diese entgegen.

Ziehe ich eine Email in meinem Programm auf ein TVirtualStringTree erhalte ich als TFormatArray die Nummern 49394,49839,49806,50067.
Ich habe diese versucht durch das übliche vorgehen von Outlook Drag&Drop durchlaufen zu lassen, aber das scheint etwas anderes zu sein.

OleCheck bringt als Fehler "Im Projekt ist eine Exception der Klasse EOleSysError mit der Meldung 'Ungültige FORMATETC-Struktur' aufgetreten."

Code:

procedure GetFileListFromObj(const DataObj: IDataObject; FileList: TStringList);
var
  FmtEtc: TFormatEtc;                   // specifies required data format
  Medium: TStgMedium;                   // storage medium containing file list
begin
    FmtEtc.cfFormat   := CF_HDROP;
    FmtEtc.ptd        := nil;
    FmtEtc.dwAspect   := DVASPECT_CONTENT;
    FmtEtc.lindex     := -1;
    FmtEtc.tymed      := TYMED_HGLOBAL;
    OleCheck(DataObj.GetData(FmtEtc, Medium));
    .
    .