Kontextmenü aller Dateitypen erweitern

[OrallY]

Jo, danke! Habe ich mittlerweile schon gefunden. Doch habe ich ein neues Problem. Ich versuche gerade einen Icon im Menü zu platzieren. Ich hab es mal mit folgendem Code probiert:

Delphi-Quellcode:

{$R Icons.res}
{inhalt: 10 ICON myicon.ico}
function TContextMenu.QueryContextMenu(Menu: HMENU; indexMenu, idCmdFirst,
          idCmdLast, uFlags: UINT): HResult;
var
  Mii: TMenuItemInfo;
begin
  Result := 0; // or use MakeResult(SEVERITY_SUCCESS, FACILITY_NULL, 0);

  if ((uFlags and $0000000F) = CMF_NORMAL) or
     ((uFlags and CMF_EXPLORE) <> 0) then begin
    // Add one menu item to context menu
    InsertMenu(Menu, indexMenu, MF_STRING or MF_BYPOSITION, idCmdFirst,
      'Blablub...');
    mii.cbSize := SizeOf(TMenuItemInfo);
    mii.fMask := MIIM_CHECKMARKS;
    mii.hbmpChecked := LoadIcon(hInstance, PChar('10'));
    mii.hbmpUnchecked := LoadIcon(hInstance, PChar('10'));
    SetMenuItemInfo(Menu, indexMenu, true, mii);
    SetMenuItemBitmaps(Menu, indexMenu, MF_BYPOSITION, mii.hbmpChecked, mii.hbmpUnchecked);
    // Return number of menu items added
    Result := 1; // or use MakeResult(SEVERITY_SUCCESS, FACILITY_NULL, 1)
  end;
end;

Was mache ich falsch?