{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');
quarta-feira, 4 de novembro de 2009
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário