Amauri Barreto

Membros
  • Content Count

    3
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Amauri Barreto

  • Birthday 07/02/1974
  1. Bom Dia Jhonas Brigadão meu amigo ... mais queimando minha mufa consegui....eu acho que estava com preguiça de pensar..rsrs procedure TFrmImpLau.BitBtn1Click(Sender: TObject); var msword: variant; begin msword:= CreateOleObject ('Word.Basic'); msword.appshow; msword.fileopen('C:\hnsg\laudos\' + edit1.text+'.doc',0); self.Close; FrmPrincipal.WindowState := wsMinimized; end; Brigadão
  2. Bom dia Pessoal...tenho uma aplicação em Delphi onde eu salvo uns laudos dentro de uma pasta feito pelo próprio sistema no word(.Doc),onde esses arquivo são salvos com o numero da matriculo do paciente. Gostaria que alguém me desse uma ideia de como achar esses arquivos filtrando em um edit e ao achar abrir esse arquivo.. fico no aguardo obrigado