Ejecutar un .exe
 

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.

Busca WinExec o ShellExecute en los foros.

// Saludos

gracias, saludos

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

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.

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"

:cool: Prueba con esto:

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

Acuerdate de agregar ShellApi a las uses

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

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

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

:p :D

// Saludos

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

Está bueno, vale para tí. :D

seoane, ¿tú que justificación das? :D :D

// Saludos

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

Fue a hablar el que siempre me pisa las respuestas :D

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

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

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;

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

// Saludos

seoane,

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

// Saludos

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? :p

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

// Saludos