Ir para conteúdo
Fórum Script Brasil

Amauri Barreto

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Tudo que Amauri Barreto postou

  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
×
×
  • Criar Novo...