Drag and Drop с минимизированным приложением

Code:

procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);

{Вызывается только если TApplication НЕ получает drag/drop}

begin

RecordDragDrop(Msg.Drop, False); {внутренняя функция}

Msg.Result := 0;

end;

procedure TForm1.AppOnMessage(var Msg: TMsg; var Handled: Boolean);

{когда активно, получаем сообщения WM_DROPFILES, посылаемые

форме ИЛИ минимизированному приложению}

begin

if Msg.message = WM_DROPFILES then

begin

   RecordDragDrop(Msg.wParam, Msg.hWnd = Application.Handle);

   Handled := True;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

DragAcceptFiles(Handle, True);

DragAcceptFiles(Application.Handle, False);

Application.OnMessage := nil;

end;