Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Работа с буфером обмена на чистом API [D5, D6, D7, WinXP]


Jetus ©   (2004-08-08 03:09:00) 

Как можно отправить строку в буфер обмена на чистом API? А как получить строку из него?


GuAV   (2004-08-08 23:46:00) [1]

win32.hlp:
Copying Information to the Clipboard
Pasting Information from the Clipboard

первая в переводе на Дельфи:

procedure CopyText(const S: string);
var hglbCopy: THandle; L: Cardinal;
begin
 L:=Length(S)+1;
 Win32Check(OpenClipboard(Application.Handle));
 try
   Win32Check(EmptyClipboard);
   hglbCopy:=GlobalAlloc(GMEM_DDESHARE, L);
   Move(PChar(S)^,GlobalLock(hglbCopy)^,L);
   GlobalUnlock(hglbCopy);
   SetClipboardData(CF_TEXT, hglbCopy);
 finally
   CloseClipboard;
 end;
end;


Бином Ньютоныч   (2004-08-08 06:34:00) [2]

Точно так, как это делает класс TClipboard. Правда не знаю, чистое там API или уже запылилось.


Наверх

Титульная страница Поиск, карта сайта Написать письмо