chequeo de Firma de un Registro

[Sandy656]

He intentado con el código que me has indicado pero al llamar a la función autoFirmaPath me da el mensaje 'Error 2'. He buscado en el registro y esa cadena está vacía.

Código PHP:

function autoFirmaPath:string;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_CLASSES_ROOT;
    if OpenKey('\afirma\shell\open\command',false) then
    begin
      if ValueExists('') then
        Result := Readstring('')
      else
        ShowMessage('error');
    end
    else
      ShowMessage('Error 2');
    CloseKey;
  end;
end;