Ver Mensaje Individual
  #3  
Antiguo 12-08-2007
Avatar de cHackAll
[cHackAll] cHackAll is offline
Baneado?
 
Registrado: oct 2006
Posts: 2.159
Reputación: 22
cHackAll Va por buen camino
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
Responder Con Cita