|
#1
|
||||
|
||||
Vista и Drag&Drop
У кого-нибудь работает 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; Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#2
|
||||
|
||||
Все, решилась проблема просто, нужно запускать приложение не из среды Delphi.
Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |