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

[B_N]

Что значит везде? Есть общесистемные хуки, есть обычный ввод с клавиатуры, который идет окну, имеющему фокус, есть возможность послать любое сообщение любому окну, есть возможность послать сообщение любому потоку. Как надо-то?

[Stilet]

кто знает как в делфи называетс CAPS LOCK?

VK_CAPITAL

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

Ну я даж незаню что ответить, бродкастом разошли чтоли сообщение о нажатии всем окнам (HWND_BROADCAST)

[)Игнат(]

HWND_BROADCAST вместо Edit1.Handle???

[Stilet]

HWND_BROADCAST вместо Edit1.Handle???

э-э-э стоп! Если нужно послать всем открытым окнам вообще то да
Если нужно послать всем Эдитам на форме То луче в цикле перебрать их

[Zevseg]

Блин, я же Вам написал код. В нем подставляешь клавишу и он будет её нажимать когда ты захочешь в любое время. И её функция будет зависеть от окона которое активно.
Папробуй и говори что непонятно

[)Игнат(]

Сообщение от 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;

а можно это в сам проект, без формы? например так

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;

[Рустам]

жми CapsLock при помощи keybd_event - CapsLock для всех и всего жмется!!!

[)Игнат(]

Я толком честно говоря не понял этот код(делфи только начинаю учить) может кто нить его мне пояснить?

[WOLFak]

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

Что значит везде? Есть общесистемные хуки, есть обычный ввод с клавиатуры, который идет окну, имеющему фокус, есть возможность послать любое сообщение любому окну, есть возможность послать сообщение любому потоку. Как надо-то?

если окно имеющее фокус - это то окно которое я вижу на экране то как это сделать? передать сообщ о нажатии клавиши этому окну???

[B_N]

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

если окно имеющее фокус - это то окно которое я вижу на экране то как это сделать? передать сообщ о нажатии клавиши этому окну???

Читайте внимательнее: "есть обычный ввод с клавиатуры, который идет окну, имеющему фокус". А передать любое сообщение любому окну можно с помощью SendMessage и т.п.