(Resolvido) Filtrar arquivo de uma pasta pelo edit

[Amauri Barreto]

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

 

[Jhonas]

Componentes a serem usados:

OleContainer1

Na propriedade Visible coloque => True

Pode deixar o componente sobrepor outro ou coloca-lo fora do Form ou pode deixa-lo atraz de outro componente sem problema

DriveComboBox1

Na propriedade DirList coloque  => DirectoryListBox1

DirectoryListBox1

Na propriedade FileList coloque = > FileListBox1

FileListBox1

Não muda nada

FilterComboBox1

Na propriedade FileList coloque => FileListBox1

Na propriedade Filter coloque => All files (*.*)|*.*|*.DOC|*.DOC

OBS: quando voce selecionar a pasta que tem os arquivos .doc, eles serão automaticamente filtrados

Código:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FileCtrl, StdCtrls, OleCtnrs;

type
  TForm1 = class(TForm)
    DriveComboBox1: TDriveComboBox;
    DirectoryListBox1: TDirectoryListBox;
    FileListBox1: TFileListBox;
    FilterComboBox1: TFilterComboBox;
    OleContainer1: TOleContainer;
    procedure FileListBox1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses URLMon, ComObj;

procedure TForm1.FileListBox1DblClick(Sender: TObject);
begin
   Screen.Cursor := crHourGlass;
   try
      OleContainer1.AutoActivate:= aaGetFocus;
      OleContainer1.CreateLinkToFile(FileListBox1.FileName, true);
      OleContainer1.SetFocus;

   finally
      Screen.Cursor := crDefault;
   end;
end;

end.

 

Quando for dado um click duplo com o mouse no arquivo, ele será automaticamente aberto pelo Word.

abraço

[Amauri Barreto]

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

Editado Maio 15, 2018 por Amauri Barreto

[Jhonas]

ok ... mas só para voce ver a utilidade do  código .

ele chama automaticamente o software correspondente ao tipo de arquivo que voce clicar

se for pdf, doc ...ele abre o word ou o acrobat

se for bmp ... ele abre o visualizador de imagem

se for txt ... ele abre o bloco de notas ou word pad

e assim para qualquer arquivo que voce escolher.

abraço

[Amauri Barreto]

muito bom..

 

obrigado pela atenção meu amigo