Ejecutar un .exe

[jorgegetafe]

Me gustaría hacer que al presionar un botón se ejecutase un programa de mi ordenador, es decir, un ejecutable (*.exe) del que se su ruta exacta. ¿Es posible? ¿cual es el código?

Muchas gracias.

[roman]

Busca WinExec o ShellExecute en los foros.

// Saludos

[jorgegetafe]

gracias, saludos

[jorgegetafe]

Vale ya se hacerlo:

WinExec(PChar('notepad.exe'),SW_SHOWNORMAL);

Pero como sabe donde está el programa? acaso lo busca? no entiendo como lo hace...

[dec]

Hola,

Windows tratará de localizar el programa en el directorio activo, en el del propio Windows, en "System" ó "System32", entre otros...

Pero, generalmente, indicamos la ruta completa del programa a ejecutar.

[jorgegetafe]

Y para ejecutar IE? no se donde está su ejecutable, no quiero poner una página en concreto sino la que tenga el usuario como "home"

[[seoane]]

Prueba con esto:

Código Delphi [-]
ShellExecute(0,nil,'about:home',nil,nil,SW_SHOW);

Acuerdate de agregar ShellApi a las uses

[[maeyanes]]

Empezado por dec

Hola,

Windows tratará de localizar el programa en el directorio activo, en el del propio Windows, en "System" ó "System32", entre otros...

Pero, generalmente, indicamos la ruta completa del programa a ejecutar.

También en el registro se guardan las rutas de las aplicaciones, específicamente bajo la clave: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths

Por ejemplo Internet Explorer tiene un alias específico bajo esta clave, por lo cual si hace un WinExec(PChar('IEXPLORE.EXE'), SW_SHOWNORMAL); te debería abrir sin problemas el IE con su página Home...


Saludos...

[roman]

Una opción:

Código Delphi [-]
ShellExecute(0, 'open', 'iexplore.exe', nil, nil, SW_SHOW);

Otra opción (la aprendí hoy del compañero cHackAll )

Código Delphi [-]
var
  IE: OleVariant;

begin
  IE := ComObj.CreateOleObject('InternetExplorer.Application');
  IE.GoHome;
  IE.Visible := true;
end;

// Saludos

[roman]

Bueeeeno, ¿se puede saber por qué pasan "horas" y nadie contesta y cuando lo hago se me adelantan?



// Saludos

[[maeyanes]]

Empezado por roman

Bueeeeno, ¿se puede saber por qué pasan "horas" y nadie contesta y cuando lo hago se me adelantan?



// Saludos

Bueno, en algún momento te tenía que pasar lo que nos ha pasado a otros con respecto a ti...

[roman]

Está bueno, vale para tí.

seoane, ¿tú que justificación das?

// Saludos

[[seoane]]

Pero no se quejara, ya le dimos 4 maneras de hacerlo. Y si me apuras le saco alguna mas

[[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