Witam,
Mam problem, który dość mnie zaskoczył. Dotychczasz, pracując na starszych systemach, wszystko działało ok, ale w win7 już nie chce.
Zwyczajnie program nie reaguje na komunikat WM_DROPFILES...
procedure DropFiles(var msg: TMessage ); message WM_DROPFILES;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(form1.Handle, True);
end;
procedure TForm1.DropFiles(var msg: TMessage );
var
i, count : integer;
dropFileName : array [0..511] of Char;
MAXFILENAME: integer;
begin
MAXFILENAME := 511;
messagebox(0,'w srodku','',0);
count := DragQueryFile(msg.WParam, $FFFFFFFF, dropFileName, MAXFILENAME);
for i := 0 to count - 1 do
begin
DragQueryFile(msg.WParam, i, dropFileName, MAXFILENAME);
end;
DragFinish(msg.WParam);
end;
XP - działa idealnie. Win7 - brak reakcji (nawet ten messagebox kontrolny się nie wyświetla)...
Ktoś wie jaka może być przyczyna?