Работа с буфером обмена на чистом API

← →
Jetus © (2004-08-08 03:09) [0]

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

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

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

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;

Работа с буфером обмена на чистом API Найти похожие ветки