[The Shadow]

У кого-нибудь работает Drag&Drop файлов из Проводника на Windows Vista?

Код:

procedure TForm1.DropFiles(var Message: TWMDropFiles);
var 
HF: THandle; 
s: array [0..1023] of char; 
i, FileCount: integer;
p: TPoint;
begin
HF := Message.Drop;
FileCount := DragQueryFile(HF, $FFFFFFFF, nil, 0); 
for i := 0 to FileCount - 1 do begin 
DragQueryFile(HF, i, s, sizeof(s));
DragQueryPoint(HF, p);
ListBox1.Items.Add(s);
end;
DragFinish(HF);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  DragAcceptFiles(Handle, True);
end;

На ХР работает в Vist'е форма такое сообщение даже не получает.