Buscar y Abrir Archivos.

[[nlsgarcia]]

feliz-58,

Revisa este código:

Código Delphi [-]
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

// Permite visualizar Documentos PDF con Adobe Acrobat Reader
procedure TForm1.Button1Click(Sender: TObject);
var
   openDialog : TOpenDialog;    // Open dialog variable
   pdfDocument : array[0..255] of char;

begin
   // Crea el Objeto OpenDialog
   openDialog := TOpenDialog.Create(self);

   // Estable el directorio actual como inicial
   openDialog.InitialDir := GetCurrentDir;

   // Permite seleccionar solo existentes archivos
   openDialog.Options := [ofFileMustExist];

   // Permite seleccionat solo archivos PDF
   openDialog.Filter := 'PDF Documents|*.pdf';

   // Selecciona *.pdf como opción inicial
   openDialog.FilterIndex := 1;

   // Visualiza el OpenDialog
   if openDialog.Execute then
   begin
      try
         // Asigna el Documento PDF seleccionado a pdfDocument
         StrPCopy(pdfDocument,OpenDialog.FileName);
         // Visualiza el Documento PDF con Adobe Acrobat Reader
         ShellExecute(Handle, 'open', pdfDocument, nil, nil, SW_SHOWNORMAL);
      except
         // Mensaje de error en caso de que falle la función ShellExecute
         MessageDlg('Error en la Apertura del Documento PDF', mtInformation, [mbOk], 0);
      end;
   end;

   // Libera los recursos del OpenDialog
   openDialog.Free;
end;

end.

El código anterior permite seleccionar un documento PDF por medio de un Control TOpenDialog y visualizarlo posteriormente con Adobe Acrobat Reader.

Nota: Debe estar instalado Adobe Acrobat Reader en el sistema.

Revisa estos links:

FileSearch
http://delphibasics.co.uk/RTL.asp?Name=FileSearch

FindFirst
http://www.delphibasics.co.uk/RTL.asp?Name=FindFirst

FindClose
http://www.delphibasics.co.uk/RTL.asp?Name=FindClose

TOpenDialog
http://www.delphibasics.co.uk/RTL.asp?Name=TOpenDialog

Executing and Running Applications and Files from Delphi Code
http://delphi.about.com/od/windowssh...uteprogram.htm

Espero sea útil

Nelson.