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

← →
n-neo (2004-11-07 21:28) [0]

← →
KilkennyCat © (2004-11-07 21:35) [1]

function SetClipboardData(Format: Word; Mem: THandle): THandle;

Format - в данном случае CF_Text
Mem - память, где данные.

← →
KilkennyCat © (2004-11-07 21:38) [2]

и не забыть вначале выполнить OpenClipboard, и соответственно в конце - CloseClipboard.

← →
default © (2004-11-07 21:43) [3]

или используй созданный объект Clipboard типа TClipboard
уж VCL так VCL, API лучше только там где VCL не в силах помочь

← →
GuAV © (2004-11-07 21:46) [4]

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;

uses Clipbrd;
...
Clipboard.AsText := NeedString

Как програмно записать строку в буфер обмена? Найти похожие ветки