манипуляция клавишей

[)Игнат(]

Как сделать так чтоб по событию онТаймер нажималась\отпускалась клавиша?

[dron-s]

физически на клавиатуре?
OnKeyPress

[mihali4]

Если вы имеете в виду эмуляцию нажатия/отпускания клавиши, опишите этот процесс, например:

procedure Tfmain.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
...что-то делаем
end;

а потом ссылайтесь на него, например:
FormKeyDown(nil, (значение клавиши в формате WORD),[]);

[pu4koff]

SendMessage(Edit1.Handle,WM_KEYDOWN ,VK_LEFT,0);
посылаем в Edit1, что "на нем" нажали стрелку влево

[Zevseg]

Впринципе в место w можно писать номер клавиши которую нужно нажать ж). Так же значение клавиши будет зависеть от текущей раскладки ж)

setkey(form1,w);

В данном примере при Вашем условие наберется слово Привет ж) если раскладка клавиатуры будет русской ж)

{Процедура имитирования нажатия клавиши}
procedure TForm1.SetKey(Sender: TObject; key:integer);
begin
  keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
  keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY,0);
  keybd_event(Key,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
end;

{пишет в строке ввода (если доступно) то что вы хотите :)) }

procedure TForm1.Button1Click(Sender: TObject);
var w,i:word;
s:string;
Layout: array[0.. KL_NAMELENGTH] of char;
begin
s:='Ghbdtn'; //пишем что надо послать по русски анг буквами;
if <условие при котором произойдет имитация написания слова "привет"> then
begin
  for i:=1 to length(s) do
  begin
  w:=VkKeyScan(s[i]);
  setkey(form1,w);
end;
end;
end;

[)Игнат(]

я вижу не все понятно написал, исправлюсь: Как конкретно по событию onTimer зажималась\отпускалась клавиша(програмно)???Ну илипросто как по какому-нить событию

[B_N]

Сообщение от )Игнат(

я вижу не все понятно написал, исправлюсь: Как конкретно по событию onTimer зажималась\отпускалась клавиша(програмно)???Ну илипросто как по какому-нить событию

В каком окне/потоке? "зажималась\отпускалась" это WM_KEYDOWN/WM_KEYUP (возможно даже WM_SYSKEYDOWN/WM_SYSKEYUP)

[Stilet]

Как конкретно по событию onTimer зажималась\отпускалась клавиша(програмно)???Ну илипросто как по какому-нить событию

Уже сказали:

 
  keybd_event(<Код клавишы>,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);   
  keybd_event(<Код клавишы>,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);

Это выполнять в таймере.

Есть еще вариант использовать SendInput

[)Игнат(]

Чето ничего не понял, поясните плиз толком что есть что!!!!И кто знает как в делфи называетс CAPS LOCK???

[)Игнат(]

Сообщение от pu4koff

SendMessage(Edit1.Handle,WM_KEYDOWN ,VK_LEFT,0);
посылаем в Edit1, что "на нем" нажали стрелку влево

А как послать это нажатие в систему? ну чтоб она не где-то нажималась, а везде?