Ver Mensaje Individual
  #11  
Antiguo 15-11-2024
Sandy656 Sandy656 is offline
Miembro
 
Registrado: jul 2006
Posts: 24
Reputación: 0
Sandy656 Va por buen camino
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
  
RegTRegistry;
begin
  Reg 
:= TRegistry.Create;
  
with Reg do
  
begin
    RootKey 
:= HKEY_CLASSES_ROOT;
    if 
OpenKey('\afirma\shell\open\command',falsethen
    begin
      
if ValueExists(''then
        Result 
:= Readstring('')
      else
        
ShowMessage('error');
    
end
    
else
      
ShowMessage('Error 2');
    
CloseKey;
  
end;
end
Responder Con Cita