[DELPHI]Abrir arquivo de qualquer extensão

[~{KR3W]~ 0]

Adicione à cláusula uses da unit: ComObj

 

var

Msword: Variant;

procedure TForm1.Button1Click(Sender: TObject);

begin

Msword:=createoleObject('Word.Basic');

Msword.AppShow;

Msword.fileopen('c:\documento.doc');

end;

 

 

Adicionar à cláusula uses da unit: ShellApi

procedure TForm1.Button1Click(Sender: TObject);

begin

ShellExecute(handle,nil,'winword.exe','c:\dados.doc',nil,sw_ShowMaximized);

end;

 

 

var caminho: string;

begin

caminho := 'D:\Meus documentos\VigilanciaSanit\Fontes\dados.doc';

if (fileExists(caminho)) then

ShellExecute(Handle, nil, Pchar(caminho), nil, nil, SW_SHOWNORMAL);

end;

Se quiser dar ao usuário do programa o controle de abrir um arquivo coloque um Edit e subtitua o código fonte acima(de var pra baixo),por:

 

var caminho: string;

begin

caminho := Edit1.text;

if (fileExists(caminho)) then

ShellExecute(Handle, nil, Pchar(caminho), nil, nil, SW_SHOWNORMAL);

end;

 

Créditos: Wederson dos A. Pereira(site linhadecódigo.com) , Owner'(colocou a segunda parte do código).

Gostou,por favor agradeça.

[Owner 7]

Poderia colocar o caminho com o edit1:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Aconselho assim, dá mas liberdade a pessoa !