Как программно нажать Ctrl + V

[ffo]

Сабж...
Delphi 5, Win XP

[mihali4]

Ну, например, так (правда, это не ВинАпи):
procedure TForm1.Button2Click(Sender: TObject);
var kkk: word;
begin
//посылаем CTRL+V
kkk:=Ord('V');
FormKeyDown(Form1,kkk,[ssCTRL]);
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
//контролируем визуально
if Shift=[ssCTRL] then
Label2.Caption:='CTRL'+Chr(Key) else
Label2.Caption:=Chr(Key);
end;

Не забудьте указать в свойствах формы KeyPreView:=True;

А ВинАпи - это keybd_event...

[Voland]

Лучше всего вот так:

...
keybd_event(VK_CONTROL, 0, 0, 0);
keybd_event(Ord('V'), 0, 0, 0);
keybd_event(Ord('V'), 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
...

[Квэнди]

А использовать буфер обмена windows не проще? имитировать вставку из буфера путем нажатия клавиш дико.

[Сильванович Михаил]

To Квенди: Проще... но если человеку захотелось?
To ffo: Помнится мне, что в Delphi (Bin\Source) был модуль SendKeys32 (или sendkey32) там с хорошими комментариями подробно показано как послать любое сочетание клавиш всем окнам вообще...

[Hintman]

Господа, а где можно почитать о параметрах функции

keybd_event(bVk: Byte, bScan: Byte, dwFlags: Cardinal, dwExtraInfo: Cardinal);

Про Ctrl+'V' теперь понятно.
А как нажать программно Tab и Esc, не понимаю...

[Сильванович Михаил]

keybd_event(VK_TAB, 0, 0, 0);
keybd_event(VK_ESCAPE, 0, 0, 0);
keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP, 0);
keybd_event(VK_ESCAPE, 0, KEYEVENTF_KEYUP, 0);

[Kukkk]

А как копировать в буфер обмена переменную?

[Sergey_nl]

Самый простой способ:

clipboard.astext:='ВАШ_ТЕКСТ';

Чтоб сработало, не забыть подключить юнит clipbrd
Вот статья по работе с буфером:
http://articles.org.ru/cfaq/index.ph...mostrecent=yes

[Haster]

Подскажите, пожалуйсита, как программно нажимать кнопки и перемещать курсор в ДРУГОМ приложении.