quarta-feira, 4 de novembro de 2009

Shellexecute

{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:MSOFFICEEXCELEXCEL.EXE','CONTAS.XLS');

Nenhum comentário:

Postar um comentário