|
Используя WinAPI, скопировать содержимое строки в буфер обменаprocedure CopyStringToClipboard(s: string);
var
hg: THandle;
P: PChar;
begin
hg:=GlobalAlloc(GMEM_DDESHARE or GMEM_MOVEABLE, Length(S)+1);
P:=GlobalLock(hg);
StrPCopy(P, s);
GlobalUnlock(hg);
OpenClipboard(Application.Handle);
SetClipboardData(CF_TEXT, hg);
CloseClipboard;
GlobalFree(hg);
end;
Название: Используя WinAPI, скопировать содержимое строки в буфер обмена Дата публикации: 2004-06-17 (2702 Прочтено) |
|
 |