uses clipbrd;
var
clip:tclipboard;
begin
try
clip:=tclipboard.create;
clip.astext='ваш текст'; // вставить/считать ваш текст в (из) буфер обмена
clip.assign('ваш текст'); // почти то же самое.
finally
clip.free;
end;
end;
и как реализовать нажатие клавишь ctrl+v?
|
Нажатие клавиш реализовывать не надо. Оно уже реализовано.