Abri aplicativo do tipo: word, excel, auto-cad, etc..etc..

Question

Pessoal estou precisando abrir um apliativo como (word,excel, auto cad etc...) com o delphi como posso faze-lo....

Rm · Answer

Espero que lhe ajude:No Uses ponha : ComObj  procedure TForm1.Button1Click(Sender: TObject);var  MSWord: Variant;begin  MSWord:= CreateOleObject (�Word.Basic�);  MSWord.AppShow;//mostra o word  Pode criar uma Variant para o excel tamb�mprocedure TFormCTEmbarque.SpeedButton1Click(Sender: TObject);varExcel : Variant;beginExcel := CreateOleObject(�Excel.Application�);Excel.Visible :=True;SDS/RM...

Tatuweb · Answer

N�o ficou muito claro se o que vc quer � abrir e manipular um programa via OLE ou se vc quer simplesmente executar um programa. Em todo caso, segue abaixo uma segunda fun��o para vc executar programas.

procedure ExecNewProcess(ProgramName: String);
var
  StartInfo: TStartupInfo;
  ProcInfo : TProcessInformation;
  CreateOK : Boolean;
begin
  FillChar (StartInfo,SizeOf(TStartupInfo),#0);
  FillChar (ProcInfo,SizeOf(TProcessInformation),0);
  StartInfo.cb := SizeOf(TStartupInfo);

  CreateOK := CreateProcess(PChar(ProgramName),nil, nil, nil,
     FALSE, CREATE_NEW_PROCESS_GROUP + NORMAL_PRIORITY_CLASS,
     nil, nil, StartInfo, ProcInfo);

  if CreateOK then WaitForSingleObject(ProcInfo.hProcess, 0);
end;

Chame a fun��o assim:

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Exemplo
  ExecNewProcess (�c:\arquivos de programas\office2000\winword.exe�);
end;

F�rum Abri aplicativo do tipo: word, excel, auto-cad, etc..etc.. #241233