拖沓打开文件无效

拖拉打开文件无效

Delphi(Pascal) code

Procedure DragDropFiles(Var message: TMessage); Message WM_DropFiles;Procedure Tfm_main.DragDropFiles(Var message: TMessage);Var  p: Array[0..254] Of char;  i: word;Begin  Inherited;  i := DragQueryFile(Message.wParam, $FFFFFFFF, Nil, 0);  For i := 0 To i - 1 Do  Begin    DragQueryFile(Message.wParam, i, p, 255);  End;  Try    If FileExists(strPas(p)) Then      OpenFile(strPas(p));  Finally    DragFinish(HDROP(Message.WParam));  End;End;

Delphi(Pascal) code

Procedure DragDropFiles(Var message: TMessage); Message WM_DropFiles;Procedure Tfm_main.DragDropFiles(Var message: TMessage);Var  p: Array[0..254] Of char;  i: word;Begin  Inherited;  i := DragQueryFile(Message.wParam, $FFFFFFFF, Nil, 0);  For i := 0 To i - 1 Do  Begin    DragQueryFile(Message.wParam, i, p, 255);    //这段代码的用意是可以拖放打开多个文件    [color=#FF0000]If FileExists(strPas(p)) Then      OpenFile(strPas(p));[/color]  End;  Try  Finally    DragFinish(HDROP(Message.WParam));  End;End;
[解决办法]
还有你需要在以下
Delphi(Pascal) code
procedure   Tform1.FormCreate(Sender:   TObject); begin   DragAcceptFiles(Handle,True);   end;