Shellextension - OnFileClick

[Neutral General]

Hi,

Ja das habe ich mittlerweile jetzt auch herausgefunden aber es kommt mir vor als würde absolut niemand WM_NOTIFY Nachrichten versenden (WinVista).

Delphi-Quellcode:

function ClickHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
var Info: PNMHdr;
begin
  case PMsg(lParam)^.message of
    WM_NOTIFY: begin
                 Info := PNMHdr(PMsg(lParam)^.lParam);
                 if Info.code = NM_CLICK then
                   ShowMessage('NM_CLICK!');
               end;
  end;
  Result := CallNextHookEx(HookHandle, nCode, wParam, lParam);
end;

Ach ja: Ich habe das Interface ICopyHookA/W gefunden, mit dem man das Umbenennen/Kopieren/Löschen verhindern kann, was erst mal gut klingt. Dummerweise funktioniert das nur bei Druckern und Ordnern und nicht bei normalen Dateien... Also wäre auch dankbar wenn jemand auf diesem Wege noch weiterwüsste.

Gruß
Neutral General