Скопировать содержимое строки в буфер обмена
Скопировать содержимое строки в буфер обмена
Скопировать содержимое строки в буфер обмена 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;
