寫程式中，我們往往需要開啟圖片，或者開啟其他檔案，以下是一個最 簡單的開啟檔案操作；

原始檔下載地址：http://download.csdn.net/detail/cq20110310/6857603

unit uOpenFile;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ExtDlgs,jpeg;

type
  TForm1 = class(TForm)
    btnOpenFile: TButton;
    image: TImage;

    OpenDialog: TOpenDialog;

    procedure btnOpenFileClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btnOpenFileClick(Sender: TObject);
var
  openPath:string;
begin
   OpenDialog.Title := '開啟圖片';
   OpenDialog.filter :=  '全部 (*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf;*.png)|*.jpg;*.jpeg;*.bmp;*.i' + 
      'co;*.emf;*.wmf;*.png|JPEG 影象檔案 (*.jpg)|*.jpg|JPEG 影象檔案 (*.jpeg)|*.jpeg' + 
      '|點陣圖 (*.bmp)|*.bmp|圖示 (*.ico)|*.ico|增強圖元檔案 (*.emf)|*.emf|圖元檔案 (*.' + 
      'wmf)|*.wmf|可移植圖片(*.png)|*.png';



  if openDialog.Execute then
  begin
      openPath:=OpenDialog.FileName;
      image.Picture.LoadFromFile(openPath);
      image.AutoSize:=False;
      image.Stretch:=True;
  end;

  end;

end.