Przeciąganie i upuszczanie plików do postaci Delphi nie działa

Question

Próbowałem zaakceptować pliki, które są przeciągane i upuszczane do formularza z Eksploratora plików, ale to nie działa. Moja obsługa WM_DROPFILES nigdy nie jest wywoływana. Używam systemu Windows 8, jeśli to robi jakąkolwiek różnicę.

Oto prosty przykład tego, co robię (mam tylko TMemo w formularzu):

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

Najprawdopodobniej używasz aplikacji podwyższone. Prawdopodobnie dlatego, że używasz podniesionego Delphi. W systemie Vista i nowszych procesach o niskich uprawnieniach nie można wysyłać komunikatów do procesów o wyższych uprawnieniach. Ten MSDN blog wyjaśnia więcej.

Jeśli używasz swojego IDE Delphi podniesionego, proszę, przestań. Bardzo rzadko jest to potrzebne w przypadku standardowego tworzenia aplikacji desktopowych.

---

Jak Remy wskazuje, twoja DestroyWnd jest niepoprawna. Niszczycie uchwyt okna przed wywołaniem DragAcceptFiles. Po prostu odwróć zamówienie. Osobiście użyłbym WindowHandle zarówno w CreateWnd jak i DestroyWnd. Właściwość Handle tworzy uchwyt okna, jeśli nie jest ona przypisana, i dlatego maskuje takie błędy.

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

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