Ejecutar un .exe

[[seoane]]

Empezado por roman

seoane, ¿tú que justificación das?

Fue a hablar el que siempre me pisa las respuestas

[jorgegetafe]

Muchas gracias a todos, me va de lujo ;-) esto tiene bastante utilidad.

[[seoane]]

Y lo prometido es deuda, hay va otra forma de hacerlo

Esta función devuelve la ruta del navegador predeterminado:

Código Delphi [-]
uses Registry;

function Navegador: string;
var
  Cliente: String;
begin
  Result:= '';
  with TRegistry.Create do
  try
    RootKey:= HKEY_LOCAL_MACHINE;
    Cliente:= '';
    if OpenKey('\SOFTWARE\Clients\StartMenuInternet' ,FALSE) then
    begin
      Cliente:= ReadString('');
      CloseKey;
    end;
    if OpenKey('\SOFTWARE\Clients\StartMenuInternet\' + Cliente + '\shell\open\command' ,FALSE) then
    begin
      Result:= ReadString('');
      CloseKey;
    end;
  finally
    Free;
  end;
end;

[roman]

Yo voto por esta última. Es la que más respeta la desición del usuario.

// Saludos

[roman]

seoane,

el segundo if, ¿no vendría mejor anidarlo en el primero?

// Saludos

[[seoane]]

Empezado por roman

seoane, el segundo if, ¿no vendría mejor anidarlo en el primero?

Por poder se puede ...

Código Delphi [-]
uses Registry;

function Navegador: string;
var
  Cliente: String;
begin
  Result:= '';
  with TRegistry.Create do
  try
    RootKey:= HKEY_LOCAL_MACHINE;
    if OpenKey('\SOFTWARE\Clients\StartMenuInternet' ,FALSE) then
    begin
      Cliente:= ReadString('');
      CloseKey;
      if OpenKey('\SOFTWARE\Clients\StartMenuInternet\' + Cliente + '\shell\open\command' ,FALSE) then
      begin
        Result:= ReadString('');
        CloseKey;
      end;
    end;    
  finally
    Free;
  end;
end;

¿mejor?

[roman]

Yo "nomás" decía. Porque si el primer condicional falla, como que el segundo ya venía sobrando

// Saludos