Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Копирование и чтение и буфера Windows

Автор: NieL 23.4.2008, 19:30

Господа программисты, помогите с заданием: Как можно скопировать файл (любой) в буфер операционной системы . По сути сделать то же, что и CTRL+C и CTRL+V. Заранее спасибо

Автор: Poseidon 24.4.2008, 08:29

Копирование (DRKB):

Код

uses 
ShlObj, ClipBrd; 
 
procedure CopyFilesToClipboard(FileList: string); 
var 
DropFiles: PDropFiles; 
hGlobal: THandle; 
iLen: Integer; 
begin 
iLen := Length(FileList) + 2; 
FileList := FileList + #0#0; 
hGlobal := GlobalAlloc(GMEM_SHARE or GMEM_MOVEABLE or GMEM_ZEROINIT, 
   SizeOf(TDropFiles) + iLen); 
if (hGlobal = 0) then raise Exception.Create('Could not allocate memory.'); 
begin 
   DropFiles := GlobalLock(hGlobal); 
   DropFiles^.pFiles := SizeOf(TDropFiles); 
   Move(FileList[1], (PChar(DropFiles) + SizeOf(TDropFiles))^, iLen); 
   GlobalUnlock(hGlobal); 
   Clipboard.SetAsHandle(CF_HDROP, hGlobal); 
end;


procedure TForm1.Button1Click(Sender: TObject); 
begin 
CopyFilesToClipboard('C:\Bootlog.Txt'#0'C:\AutoExec.Bat'); 
end;

Автор: neweraser 25.4.2008, 12:17

Стандартный вопрос, такой же ответ smile

, данная тема уже не раз повторяется на форуме, мне когда-то дали такой же ответ, я им и сейчас пользуюсь, но совершенно не понимаю код, можно сделать к нему комментарии?
и еще, существует ли какой-нибудь аналогичный код, только полегче и попроще? smile

Автор: Antony41 28.9.2009, 22:37

Да да да... А еще очень интересует как это переделать под delphi 2009...?

Автор: Antony41 29.9.2009, 17:45

Нашёл описание, но вот только на C++

Код


int CopyFilesToClipboard(char *my_string)
{
// возвращаем 0 если ошибка, 1 если все ок

   //открываем буфер
   if(!OpenClipboard(NULL)) return 0;
   //очищаем буфер
   EmptyClipboard();
   int SizeLine(1);
   SizeLine = 1;
   //Определяем размер
   SizeLine+= strlen(my_string)+1;
   //Выделяем память
   HGLOBAL  hGlobal = GlobalAlloc(GMEM_SHARE|GMEM_MOVEABLE|GMEM_ZEROINIT,
                              sizeof(DROPFILES) + SizeLine);
   if (!hGlobal) { return 0; }
   //Создаем структуру
   DROPFILES *MyDropFiles = (DROPFILES*)GlobalLock(hGlobal);
   //записываем данные в структуру
   SizeLine = MyDropFiles->pFiles = sizeof(DROPFILES);
   strcpy((char*)MyDropFiles + SizeLine, my_string);
   SizeLine+= strlen(my_string) + 1;
   GlobalUnlock(hGlobal);
   //записываем данные в буфер
   if (!SetClipboardData(CF_HDROP, hGlobal)) return 0;
   //закрываем буфер
   CloseClipboard();

    return 1;
}

Пример вызова функции

Код


CopyFilesToClipboard("C:\\1112.xls");

Примерно понятно, но почему на D2009 не работает?