Перемещение файлов с помощью DragQueryFile - Delphi - Ответ 2020004

procedure TForm2.dropFiles(var Message: TWMDropFiles; delete: boolean);
var
   buffer: array [0..MAX_PATH] of Char;
   i, numFiles: Integer;
   path: String;
   ClipFormat,hn,dt: Cardinal;
   szBuffer: array[0..511] of Char;
   FormatID: string;
   pMem: Pointer;
begin
   Clipboard.Open;
  try
    path:=path1;
       numFiles := DragQueryFile(Message.Drop, $FFFFFFFF, nil, 0);
      for i := 0 to numfiles - 1 do begin
         buffer[0] := #0;
         DragQueryFile(Message.Drop, i, buffer, SizeOf(buffer));
         if not PasteFile(buffer, path) then begin
           MessageDlg('Ошибка', MtError, [mbOk], 0);
         end;
         //Удаление
         if delete then begin
            deleteFileOrFolder(buffer);
         end;
      end;
  finally
     Clipboard.Close;
  end;
end;
 
procedure TForm2.GetFilesFromClpbrd();
var
   f: THandle;
   buffer: array [0..MAX_PATH] of Char;
   i, numFiles: Integer;
   path: String;
   delete: boolean;
   ClipFormat,hn,dt: Cardinal;
   szBuffer: array[0..511] of Char;
   FormatID: string;
   pMem: Pointer;
begin
  if not Clipboard.HasFormat(CF_HDROP) then begin
    Exit;
  end;
   Clipboard.Open;
   try
     ClipFormat := EnumClipboardFormats(0);
     while (ClipFormat <> 0) do begin
       GetClipboardFormatName(ClipFormat, szBuffer, SizeOf(szBuffer));
       FormatID := string(szBuffer);
       if SameText(FormatID,'Preferred DropEffect') then begin
         hn := GetClipboardData(ClipFormat);
         pMem := GlobalLock(hn);
         Move(pMem^,dt,4);
         if dt and 1 <>0 then begin //Копирование
            delete:=false;
         end else if dt and 2<>0 then begin
           delete:=true;
         end else begin
            MessageDlg('Неизвестная операция', MtError, [mbOk], 0);
            Edit1.Text:=intToStr(dt);
            Exit();
         end;
         GlobalUnlock(hn);
         Break;
       end;
       ClipFormat := EnumClipboardFormats(ClipFormat);
     end;
  finally
   end;
 
  if not Clipboard.HasFormat(CF_HDROP) then begin
    MessageDlg('Неизвестная операция', MtError, [mbOk], 0);
    Exit();
  end;
  try
    path:=path1;
     f := Clipboard.GetAsHandle(CF_HDROP);
    if f <> 0 then begin
       numFiles := DragQueryFile(f, $FFFFFFFF, nil, 0);
      for i := 0 to numfiles - 1 do begin
         buffer[0] := #0;
         DragQueryFile(f, i, buffer, SizeOf(buffer));
         if not PasteFile(buffer, path) then begin
           MessageDlg('Ошибка', MtError, [mbOk], 0);
         end;
         //Удаление
         if delete then begin
          deleteFileOrFolder(buffer);
         end;
      end;
    end;
  finally
     Clipboard.Close;
  end;
end;