La Web del Programador: Comunidad de Programadores
 
    Pregunta:  2469 - ARRANQUE DE OTROS PROGRAMAS DESDE DELPHI
Autor:  Pascual
Me gustaria saber como puedo arrancar otros programas desde Delphi. Yo ulilizo win 95 y Delphi 1.0.******** Gracias ********

  Respuesta:  Remberto Gonzales
Podrias manejar este procedimiento, da buenos resultados :

procedure TForma_Principal.Ejecutaryesperar(archivo, parametros: string);
var
tsi : TStartupInfo;
tpi : TProcessInformation;
dw : DWORD;
begin
Result := False;
FillChar(tsi, SizeOf(TStartupInfo), 0);
tsi.cb := SizeOf(TStartupInfo);
if CreateProcess(PChar(archivo), PChar(parametros), nil, nil, False, 0, nil, nil, tsi, tpi) then begin
if WAIT_OBJECT_0 = WaitForSingleObject(tpi.hProcess, INFINITE) then begin
if GetExitCodeProcess(tpi.hProcess, dw) then begin
if dw = 0 then begin
Result := True;
end
else begin
SetLastError(dw + $2000);
end;
end;
end;
dw := GetLastError;
CloseHandle(tpi.hProcess);
CloseHandle(tpi.hThread);
SetLastError(dw);
end;

end; { ExecAndWait }

procedure TForma_Principal.CopiadeSeguridad1Click(Sender: TObject);
begin
Ejecutaryesperar(´C:\Programa a ejecutar.exe´, ´´);
end;

  Respuesta:  Adrián Fernández
Por ejemplo para ejecutar el NotePad basta con hacer un:

WinExec(PChar(´c:\windows\notepad.exe´),SW_SHOWNORMAL);

Si quieres ejecutar otra aplicación basta con cambiar el path y el fichero...

Saludos