openpicturedialog hakkında

 
  unit Unit1; 
   
  interface 
   
  uses 
    Windows, Messages,jpeg, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, ExtCtrls, StdCtrls; 
   
  type 
   
   
    TForm1 = class(TForm) 
      lst1: TListBox; 
      img1: TImage; 
      procedure FormCreate(Sender: TObject); 
      procedure lst1Click(Sender: TObject); 
    private 
      { Private declarations } 
    public 
      { Public declarations } 
    end; 
   
  var 
    Form1: TForm1; 
       StartDir:string; 
       SR: TSearchRec; 
  implementation 
   
  {$R *.dfm} 
   
   procedure FindFiles(FilesList: TStringList; StartDir, FileMask: string); 
  var 
   
    IsFound: Boolean; 
   
  begin 
    if StartDir[length(StartDir)] <> '\' then 
      StartDir := StartDir + '\'; 
   
    IsFound :=FindFirst(StartDir+FileMask, faAnyFile-faDirectory, SR) = 0; 
    while IsFound do begin 
      FilesList.Add( SR.Name); 
      IsFound := FindNext(SR) = 0; 
    end; 
    FindClose(SR); 
   
    // Build a list of subdirectories 
   
  end; 
   
   
  procedure TForm1.FormCreate(Sender: TObject); 
  var 
    FilesList: TStringList; 
  begin 
    FilesList := TStringList.Create; 
    try 
      FindFiles(FilesList, 'C:\Windows\Web\Wallpaper\Theme1', '*.jpg'); 
      lst1.Items.Assign(FilesList); 
   
    finally  
      FilesList.Free; 
    end; 
  end; 
   
  procedure TForm1.lst1Click(Sender: TObject); 
  begin 
  img1.Picture.LoadFromFile('C:\Windows\Web\Wallpaper\Theme1\' + lst1.Items[lst1.itemindex]); 
  end; 
   
  end.