Ir para conteúdo
Fórum Script Brasil

Amauri Barreto

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Posts postados por Amauri Barreto

  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

×
×
  • Criar Novo...