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;