{Aşağıdaki kod, uzantılı-uzantısız tüm dosyaların menusunde Benimle aç seçeneğinin görünmesini sağlar. Sadece tek bir uzantıdaki dosyalarda görünmesini istiyorsanız * yerine uzantıyı yazın. (Ör:'.mp3\shell\Benimle aç\command') Programınızın açılmasını sağlayan dosya nın yolu ve adı 1 numaralı parametre olarak ("Paramstr(1)")gelir (%1 sayesinde).}
Var
regist:TRegistry;
Begin
Try
Regist:=TRegistry.Create;
regist.RootKey:=HKEY_CLASSES_ROOT;
if regist.openkey('*\shell\Benimle aç\command',true) then Regist.WriteString('','C:\Program\program.exe'+' %1');
Finally
regist.free;
end;
end;