Fórum Abrir documento no Word #218113
04/03/2004
0
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
Curtir tópico
+ 0
Responder
Posts
06/03/2004
Mmtoor
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.
Responder
Gostei + 0
09/03/2004
Sales
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
Responder
Gostei + 0
10/03/2004
Marco Salles
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 :(
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)