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

Delphi

03/07/2004

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


Harlei

Harlei

Curtidas 0

Respostas

Rm

Rm

03/07/2004

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ém
procedure TFormCTEmbarque.SpeedButton1Click(Sender: TObject);
var
Excel : Variant;
begin
Excel := CreateOleObject(´Excel.Application´);
Excel.Visible :=True;

SDS/RM


GOSTEI 0
Tatuweb

Tatuweb

03/07/2004

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;



GOSTEI 0
POSTAR