ファイルをDelphiフォームにドラッグアンドドロップすると動作しない

Question

ファイルエクスプローラからドラッグしてフォームにドロップしたファイルを受け取りようとしましたが、動作しません。私のWM_DROPFILESハンドラは決して呼び出されません。私はそれが何か違いがあれば、Windows 8を実行しています。あなたは、アプリケーションが昇格実行されているほとんどの

type 
    TForm1 = class(TForm) 
    Memo1: TMemo; 
    private 
    { Private declarations } 
    procedure WMDROPFILES(var msg : TWMDropFiles) ; message WM_DROPFILES; 
    procedure CreateWnd; override; 
    procedure DestroyWnd; override; 
    public 
    { Public declarations } 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

{ TForm1 } 

procedure TForm1.CreateWnd; 
begin 
    inherited; 
    DragAcceptFiles(Handle, True); 

end; 

procedure TForm1.DestroyWnd; 
begin 
    inherited; 
    DragAcceptFiles(Handle, false); 

end; 

procedure TForm1.WMDROPFILES(var msg: TWMDropFiles); 
var 
    i, fileCount: integer; 
    fileName: array[0..MAX_PATH] of char; 
begin 
    fileCount:=DragQueryFile(msg.Drop, $FFFFFFFF, fileName, MAX_PATH); 
    for i := 0 to fileCount - 1 do 
    begin 
    DragQueryFile(msg.Drop, i, fileName, MAX_PATH); 
    Memo1.Lines.Add(fileName); 
    end; 
    DragFinish(msg.Drop); 
end; 

Answer 1

：ここ

は、私は（私は、フォーム上のTMemoオブジェクトを持っている）何をすべきかの簡単な例です。たぶん、あなたがDelphiを起動しているためです。 Vista以降では、低特権プロセスは上位特権プロセスにメッセージを送信できません。これはMSDN blogの詳細です。

Delphi IDEを高レベルで実行している場合は、これをやめるようにしてください。標準的なデスクトップアプリケーション開発ではそうする必要はほとんどありません。

---

レミーが指摘するように、あなたのDestroyWndが正しくありません。 DragAcceptFilesを呼び出す前にウィンドウハンドルを破棄しています。順序を逆にするだけです。個人的には、CreateWndとDestroyWndの両方でWindowHandleを使用します。 Handleプロパティは、割り当てられていない場合にウィンドウハンドルを作成し、そのようなエラーをマスクします。

procedure TForm1.CreateWnd; 
begin 
    inherited; 
    DragAcceptFiles(WindowHandle, True); 
end; 

procedure TForm1.DestroyWnd; 
begin 
    DragAcceptFiles(WindowHandle, false); 
    inherited; 
end;