Establecer un programa para una extension

[[cHackAll]]

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