Используя 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
;

Другое по теме:

• Форма как графический объект
• Сохранить содержимое буфера обмена или потока как картинку
• Сохранение данных в Clipboard