Sorry, dass ich deinen Code so verstümmelt habe, aber warum geht das nicht?
Delphi-Quellcode:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ShellApi;
procedure WMDROPFILE(
var msg: TMessage);
procedure TForm1.WMDROPFILE(
var msg: TMessage);
var
hDrop: cardinal;
fName:
array[0..MAX_PATH]
of char;
begin
hDrop := Msg.WParam;
fName := '
' ;
DragQueryFile(hDrop, 0, fName, MAX_PATH);
ShowMessage('
*' +
string(fName) + '
*');
//LabeledEdit1.Text := string(fName);
DragFinish (hDrop);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(
Handle,True);
end;
Es kommt noch nichtmal eine MessageBox mit zwei Sternchen, aber der Drag&Drop-Zeiger kommt
