![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Работа с буфером обмена на чистом 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 или уже запылилось.