F�rum Arquivo World delphi #586935

19/10/2017

Boa tarde pessoal,

Galera, estou concluindo meu TCC da faculdade, estou desenvolvendo uma aplica��o em delphi, e nela � necess�rio ter uma "ajuda", com rela��o ao sistema, a minha ajuda � um arquivo world, que cont�m todo o funcionamento do sistema, a minha pergunta � a seguinte: Como fa�o pra quando eu clicar no bot�o "Ajuda" na minha tela, ele abra o arquivo world do meu computador no delphi?

Desde j� agrade�o,

Att.

Leandro Vaneti

Curtir t�pico

+ 0

Responder

Posts

19/10/2017

Felipe Morais

Adicione

ShellApi

na sua cl�usula

uses

procedure TForm1.Button1Click(Sender: TObject);
var
  CaminhoWord, CaminhoDocumento: string;
begin
  CaminhoWord := 'C:\\Program Files (x86)\\Microsoft Office\\Office12\\winword.exe';
  CaminhoDocumento := 'C:\\morais_san\\Teste Delphi.docx';

  ShellExecute(handle, 'open', PChar(CaminhoWord), PChar(CaminhoDocumento), '', SW_SHOWNORMAL);
end;

Verifique os diret�rios do Word e do seu documento e altere os valores das vari�veis.

Espero ter ajudado.

Responder

Gostei + 0

19/10/2017

Felipe Morais

Adendo:

O editor de c�digo aqui do f�rum duplicou as barras invertidas. Em seu c�digo use apenas uma barra invertida, ok?

Responder

Gostei + 0

20/10/2017

Wesley Yamazack

Excelente solu��o Moraissan.

Uma outra dica q eu passo tbm seria o seguinte c�digo:

procedure TForm1.Button1Click(Sender: TObject);
var
  CaminhoWord, CaminhoDocumento: string;
begin
  CaminhoWord := 'winword.exe';
  CaminhoDocumento := 'D:\\\\teste.docx';

  ShellExecute(handle, 'open', PChar(CaminhoWord), PChar(CaminhoDocumento), '', SW_SHOWNORMAL);
end;

Desta forma voc� n�o se preocupa com o caminho q o word foi instalado ou a vers�o do mesmo, por exemplo :)

Segue c�digo completo da UNIT


unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, ShellApi;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  CaminhoWord, CaminhoDocumento: string;
begin
  CaminhoWord := 'winword.exe';
  CaminhoDocumento := 'D:\\teste.docx';

  ShellExecute(handle, 'open', PChar(CaminhoWord), PChar(CaminhoDocumento), '', SW_SHOWNORMAL);
end;

end.

Fica a dica.

Grande abra�o

Responder

Gostei + 0