procedure TForm1.Button1Click(Sender: TObject);
{ Extract Explorer Thumbnail. }
var
  iFilename: string;
  iIndex: integer;
  iBitmap: TBitmap;
begin
  OpenPictureDialog1.Filter := '';
  OpenPictureDialog1.Filter := OpenPictureDialog1.Filter + 'AVI Video (*.avi)|*.avi|';
  if OpenPictureDialog1.Execute then
  begin
    if FileExists(OpenPictureDialog1.FileName) then
    begin
      iFilename := OpenPictureDialog1.FileName;
      if HasExplorerThumbnail(iFilename) then
      begin
        iBitmap := TBitmap.Create;
        try
          if ExtractExplorerThumbnail(iFilename, iBitmap, 170, 120) then
          begin
            iIndex := ImageEnMView1.AppendImage;
            ImageEnMView1.SetImage(iIndex, iBitmap);
            ImageEnView1.Update;
            UpdateGUI;
            UpdateStatusbar;
          end
          else
          begin            
            TaskDialog1.Caption := 'Unable To Extract Explorer Thumbnail';
            TaskDialog1.Text := ' Unable to extract explorer thumbnail from ' + iFilename +
              ' file.';
            TaskDialog1.ExpandedText :=
              'Not all video files contain an explorer thumbnail, but typically video files captured by video cameras have an explorer thumbnail.';
            TaskDialog1.Execute;
          end;
        finally          
          iBitmap.Free;
        end;
      end
      else
      begin
        TaskDialog1.Caption := 'No Explorer Thumbnail';
        TaskDialog1.Text := 'The file ' + iFilename + ' does not have an explorer thumbnail.';
        TaskDialog1.Execute;
      end;
    end;
  end;
end;

procedure TForm1.Open1Click(Sender: TObject);
{ Extract Explorer Thumbnail. }
var
  iFilename: string;
begin
  OpenPictureDialog1.Filter := '';
  OpenPictureDialog1.Filter := OpenPictureDialog1.Filter + 'AVI Video (*.avi)|*.avi|';
  if OpenPictureDialog1.Execute then
  begin
    if FileExists(OpenPictureDialog1.FileName) then
    begin
      iFilename := OpenPictureDialog1.FileName;
      if HasExplorerThumbnail(iFilename) then
      begin
        if ExtractExplorerThumbnail(iFilename, ImageEnView1.Bitmap, 170, 120) then
        begin
          ImageEnView1.Update;
          StatusBar1.Panels[0].Text := EllipsifyText(True, ExtractFileDir(iFilename), Canvas,
            StatusBar1.Panels[0].Width);
          StatusBar1.Panels[1].Text := EllipsifyText(False, ExtractFileName(iFilename), Canvas,
            StatusBar1.Panels[1].Width);
          StatusBar1.Panels[2].Text := 'Width: ' + IntegerToString(ImageEnView1.Bitmap.Width);
          StatusBar1.Panels[3].Text := 'Height: ' + IntegerToString(ImageEnView1.Bitmap.Height);
        end
        else
        begin          
          TaskDialog1.Caption := 'Unable To Extract Explorer Thumbnail';
          TaskDialog1.Text := ' Unable to extract explorer thumbnail from ' + iFilename + ' file.';
          TaskDialog1.ExpandedText := 'Not all video files contain an explorer thumbnail, but typically video files captured by video cameras have an explorer thumbnail.';
          TaskDialog1.Execute;
        end;
      end
      else
      begin        
          TaskDialog1.Caption := 'No Explorer Thumbnail';
          TaskDialog1.Text := 'The file ' + iFilename + ' does not have an explorer thumbnail.';
          TaskDialog1.Execute;
      end;
    end;
  end;
end;