Código Delphi
[-]var
hKey: Windows.HKEY;
App: string;
begin
App := '"'+ParamStr(0)+'" %*';
RegCreateKey(HKEY_CLASSES_ROOT, '.abc\shell\open\command', hKey);
RegSetValue(hKey, nil, REG_SZ, PChar(App), Length(App));
RegCloseKey(hKey);
end;
Lo subrayado es la extensión manejada.
PD: No olvides procesar luego el
ParamCount, y el vector
ParamStr.
Suerte