Jak dodać własną pozycję do menu wywoływanego

Jak dodać własną pozycję do menu wywoływanego spod Exploratora po kliknięciu prawym przyciskiem myszy na dowolny plik lub katalog? Tak jak np. ma WinRar ???

Poczytaj o rejestrowaniu rozszerzeń.

Start->Uruchom->Regedit Ctrl+F + wpisz coś co masz dodatkowego w menu -> pomyśl -> masz rozwiązanie

Nie chodzi mi o reestrowanie wlasnego rozszezenia bo o tym czytalem artykul. Chodzi mi o to zeby w menu ak klikasz na dowolny pliczek pokazywalo mi sie np. "otworz moj program" czy cos takiego. Wiem ak to zrobic dla konkretnego rozszezenia pliku natomiast nie wiem jak zrobic to dla wszystkich. Oto kod dla jednegro rozszerzenia:

procedure JakasTam;

var 
  Rejestr:TRegistry;
  NazwaTypu:string;

begin 
  try   
    Rejestr:=TRegistry.Create;
    Rejestr.RootKey := HKEY_CLASSES_ROOT;
    Rejestr.OpenKey('\.rozszerzenie',true);
    NazwaTypu:=Reg.ReadString('');
    Rejestr.CloseKey;
    Rejestr.OpenKey(''+NazwaTypuHtml+'\shell\Koduj',true);  
    Rejestr.WriteString('','Koduj do...');
    Rejestr.CloseKey;
    Rejestr.OpenKey(''+NazwaTypuHtml+'\shell\Koduj\command',true);
    Rejestr.WriteString('','"'+Application.ExeName+'" "%1"');
    Rejestr.CloseKey;
  finally 
    Rejestr.Free;
  end;
end;