Abrir documento no Word
Boa Noite,
Galera, preciso saber como abrir um documento que o usuário escolher no Word. O cara escolhe o documento, tem um botão ao lado do edit, que caso ele queira ver o documento, ele clica e eu abro o doc no word. Alguem pode me ajudar ! Abraço a todos Sales
Galera, preciso saber como abrir um documento que o usuário escolher no Word. O cara escolhe o documento, tem um botão ao lado do edit, que caso ele queira ver o documento, ele clica e eu abro o doc no word. Alguem pode me ajudar ! Abraço a todos Sales
Sales
Curtidas 0
Respostas
Mmtoor
04/03/2004
Declare na seção uses SHELLAPI.
No evento que dispara a abertura do programa insira:
ShellExecute(0,nil,´C:\Bkp\Biblio.bat´,´´,nil,Sw_shownormal);
Onde você está lendo ´C:\BKP\Biblio.bat´ insira o nome de um edit, por exemplo, edit1.text.
No form você insere um list para acessar o arquivo e ao clicar sobre ele o mesmo abrirá.
poderá abrir qualquer arquivo que tenha o software instalado no micro.
No evento que dispara a abertura do programa insira:
ShellExecute(0,nil,´C:\Bkp\Biblio.bat´,´´,nil,Sw_shownormal);
Onde você está lendo ´C:\BKP\Biblio.bat´ insira o nome de um edit, por exemplo, edit1.text.
No form você insere um list para acessar o arquivo e ao clicar sobre ele o mesmo abrirá.
poderá abrir qualquer arquivo que tenha o software instalado no micro.
GOSTEI 0
Sales
04/03/2004
mmtoor
Achei show a funçao que vc me mandou, mas quando eu troco por um edit1.text. gera esse erro :
[Error] Unit1.pas(32): Incompatible types: ´TCaption´ and ´PAnsiChar´
Eu usei a função assim:[
ShellExecute(0,nil,edit1.text,´´,nil,Sw_shownormal);
Quando eu insiro o edit1, nem aparece o ´text´´ do componente ! Obrigado ! Sales
Achei show a funçao que vc me mandou, mas quando eu troco por um edit1.text. gera esse erro :
[Error] Unit1.pas(32): Incompatible types: ´TCaption´ and ´PAnsiChar´
Eu usei a função assim:[
ShellExecute(0,nil,edit1.text,´´,nil,Sw_shownormal);
Quando eu insiro o edit1, nem aparece o ´text´´ do componente ! Obrigado ! Sales
GOSTEI 0
Marco Salles
04/03/2004
Achei show a funçao que vc me mandou, mas quando eu troco por um edit1.text. gera esse erro :
[Error] Unit1.pas(32): Incompatible types: ´TCaption´ and ´PAnsiChar´
Eu usei a função assim:[
ShellExecute(0,nil,edit1.text,´´,nil,Sw_shownormal);
Quando eu insiro o edit1, nem aparece o ´text´´ do componente ! Obrigado ! Sales
O Mesmo Aconteceu Comigo :(
GOSTEI 0