Como rodar aplicativos Windows

Como rodar aplicativos Windows como: Calculadora, Bloco de Notas, Write, Word , Excel , PaintBrush, etc com o Delphi?

Voc� poder� executar a ShellExecute da API do Windows. Se quiser um meio mais f�cil, pega essa procedure.

Procedure ExecuteProgram(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;

Para usa-la, coloque no evento onclick a chamada ao programa que deseja executar, tipo:

ExecuteProgram('WINWORD.EXE,'');
ou
ExecuteProgram('C:\MSOFFICE\EXCEL\EXCEL.EXE','CONTAS.XLS');

Como rodar aplicativos Windows

Veja nesta dica como rodar aplicativos Windows como: Calculadora, Bloco de Notas, Write, Word , Excel , PaintBrush,

Artigos relacionados