Buscar

Executando um programa do windows

Código

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;
  Para rodar ela:


 ExecutePrograma('WinWord.Exe, ''); // ou se quiser rodar um documento ou arquivo:

 ExecutePrograma ('C:MSOfficeExcelExcel.Exe', 'Contas.Xls');

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Windows
Adicionada dia: 20/06/03
Por: Felipe Monteiro
Visualizada: 3054 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009