Artigos Delphi Dicas - Executar um programa do Windows

uses Shellapi

 

procedure ExecutePrograma(Nome, Parametros: String);

var

 Comando: Array[0..1024] of Char;

 Parms: Array[0..1024] of Char;

begin

  StrPCopy (Comando, Nome);

  StrPCopy (Parms, Parametros);

  ShellExecute (0, nil, Comando, Parms, nil, SW_ShowMaximized);

end;

 

Executando o Programa:

 

 ExecutePrograma(WinWord.Exe, ');

 

 ou se quiser rodar um documento ou arquivo:

 

 ExecutePrograma (C:\MSOffice\Excel\Excel.Exe, Contas.Xls);