Кликер

[Federal]

Сделал кликер- по принципу записываем коды нажатых клавиш и обрабатываем логи.
Но вот беда, в большинстве случаев при проигрывании записи, эмулируются не те клавиши что я нажимал почему это происходит?
Выложил исходник
Дело скорее всего в форматах переменных I и S

///Записываем код клавиши
S:=IntToStr(Ord(Key));
///Воспроизводим
var
I: Byte;

procedure klick;
begin
I:=StrToInt(S);
keybd_event(I, 0, 0, 0);
keybd_event(I, 0, KEYEVENTF_KEYUP, 0);
end;

[ZaRDaK]

S:=IntToStr(Ord(UpperCase(Key)));
Проверить возможности небыло.

[Federal]

Неа не помогло
Нужно что бы I был в формате (key) я думал что это Byte оказалося не так)
ord(key)-Возврат номера
А как сделать перевозврат возврата?)))

[Пепел Феникса]

key это char
будто не посмотреть чтоль...

[Federal]

Нет все-таки I должен быть Byte
проблема в строке S:=IntToStr(Ord(Key));

просто до меня дошло что функция
keybd_event(I, 0, 0, 0);
keybd_event(I, 0, KEYEVENTF_KEYUP, 0);
не поддерживает числа от Ord(Key)

keybd_event(byte, byte, cardinal, cardinal); А Ord(Key) дает число не от формата Byte
Теперь я вообще в растерянности

Видимо сама функция Ord(Key) дает лишь порядковый номер клавиши а I должно быть кодом типа $0D

[Пепел Феникса]

потому что в той функции используется виртуальный код клавиши а не ord-номер символа(код можно в OnKeyUp/Down взять)
хоть бы справку почитали...
(в OnKeyPress Key:Char)

Видимо сама функция Ord(Key) дает лишь порядковый номер клавиши а I должно быть кодом типа $0D

ord дает порядеовый номер символа, на самом деле она ничего не делает кроме мнимого приведения типов.(Char=Byte по месту(я про АНСИ))
а ваше $0D=13=#13(перевод каретки)

[Federal]

ЗАРАБОТАЛО)))
Вот исходник (кому надо) самого простого кликера...
Спасибо большое 'Пепел Феникса'- тока вот в весы пока не добавляются, ну да ладно позже добавлю.
О добавил...

Блин а как записать нажатия клавиш без фокуса программы?

[Пепел Феникса]

через глобальный хук(в поиске есть примеры кей логгера)

блин, когда, наконец, мой ник склонять начнут

[DIgorevich]

Сообщение от Пепел Феникса

блин, когда, наконец, мой ник склонять начнут

Да легко :

Пепел Феникса
Пепла Феникса
Пеплу Феникса
Пепел Феникса
Пеплом Феникса
Пепле Феникса

[Federal]

Слямзил библиотеку
Вот только одного не понял как сделать что бы в лог писался код клавиши а не 'S D F G H J'

library hook;
uses
  Windows,
  Messages,
  Sysutils;

var
  myHook: HHook = 0;

function MsgProc(Code: integer; wParam: Word; lParam: Longint): Longint; stdcall;
var 
    f: text;
    key: array [0..16] of Char;
begin
  if (Code=HC_ACTION) and (((lParam shr 16) and KF_UP)=0) then
  begin
  Assign(f,'D:\log.txt');
  if FileExists('D:\log.txt') then
  Append(f) else Rewrite(f);
  GetKeyNameText(lParam,key,SizeOf(key));
  Writeln(f,key);
  CloseFile(f);
  result:=CallNextHookEx(myHook,Code,wParam,lParam);
 end;
end;

procedure setHook(Hook: boolean) export; stdcall;
begin
  if Hook then
  begin
    if myHook=0 then
    myHook:=SetWindowsHookEx(WH_KEYBOARD,@MsgProc,HInstance,0);
  end
  else
  begin
    if myHook<>0 then
    UnHookWindowsHookEx(myHook);
    myHook:=0;
  end;
end;

exports setHook name 'SetHook';

begin
end.