Example

The following example demonstrates how to copy some pictures selected from TOpenPictureDialog to some location (previously specified in the DestFolder).

---

procedure TMainForm.AddBtnClick(Sender: TObject);
var
  I: Integer;
begin
  if OpenPictureDialog1.Execute then
   with dcFileOperations1 do
    try
      FileList.Clear;
      I := OpenPictureDialog1.Files.Count;
      if I <> 0 then
       for I := 0 to I - 1 do
        // long filenames must be in quotes (")
        FileList.Add('"' + OpenPictureDialog1.Files[I] + '"');
      Copy; // or any other operation
    except
    end;
end;
�s��IU��/QH�/�K��+��!