VPF::Copy\Paste Clipboard - Форум программистов

NieL

Дата 12.2.2009, 13:39 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 214
Регистрация: 10.2.2008

Репутация: 1
Всего: 1

Написал алгоритмы копирования/вставки файла из/в буфер обмена. Все кажется работает как надо. Помогите оптимизировать код, может где-то написал лишний параметр или что-нбудь можно упростить? Вот код:

Код


procedure SetBuf(const FileName: string);
  var
    F: PDropFiles;
    hMem: THandle;
    L: Integer;
  begin
    L := Length(FileName);
    hMem := GlobalAlloc(GMEM_SHARE or GMEM_MOVEABLE or GMEM_ZEROINIT,
      SizeOf(TDropFiles) + L + 2);
    try
      F := GlobalLock(hMem);
      try
        F^.pFiles := SizeOf(TDropFiles);
        Move(FileName[1], (PChar(F) +
          SizeOf(TDropFiles))^, L);
        (PChar(F) + SizeOf(TDropFiles) + L)^ := #0;
        try
          OpenClipboard(Handle);
          try
            SetClipboardData(CF_HDROP, hMem);
          finally
            CloseClipboard;
          end;
        except

        end;
      finally
        GlobalUnlock(hMem);
      end;
    except
      GlobalFree(hMem);
    end;
  end;

Код


procedure GetBuf(var S: TStrings);
  const
    Size = 1024;
  var
    hData: THandle;
    C: Integer;
    B: PChar;
  begin
    try
      OpenClipboard(Handle);
      try
        hData := GetClipboardData(CF_HDROP);
        GetMem(B, Size);
        try
          FillChar(B^, Size, 0);
          if hData = 0 then
            Exit;
          C := DragQueryFile(hData, $FFFFFFFF, nil, 0);
          DragQueryFile(hData, 0, B, Size);
          if C > 1 then
            Exit
          else
            S.Add(B);
        finally
          FreeMem(B);
        end;
      finally
        CloseClipboard;
      end;
    except

    end;
  end;

Poseidon

Дата 12.2.2009, 13:54 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

А чем TClipboard не годил?

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

NieL

Дата 12.2.2009, 14:00 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 214
Регистрация: 10.2.2008

Репутация: 1
Всего: 1

Цитата(Poseidon @ 12.2.2009, 13:54)

А чем TClipboard не годил?

требовалось сделать на API

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »