Написать программу на дельфи

[maz-man]

Всем привет.
Эта тема скорее для тех у кого есть свободное время, чтоб помочь. Ну может кому-нибудь будет интересно эта область проблемы.

Итак имеем игру. Надо, чтоб во время игры по нажатию мной клавиши F8 происходили какие-либо действия мышкой. Полазил по инету посмотрел теорию как это все выглядит, а осилить в виде кода не смог. Может кто поможет.
Нажатие клавиши F8 отлавливается функцией SetWindowsHookEx, которую надо выносить в dll чтоб код всегда был в памяти.

вот какой код я нарыл в инете, но он у меня не компилируется в дельфи 7 секонд эдишин.

library SendKey;  

uses  
 WinTypes, WinProcs, Messages;  

const  
 {пользовательские сообщения}

 HookHandle: hHook = 0;  

var  
 SaveExitProc : Pointer;  
   
{собственно ловушка}
function Key_Hook(Code: integer; wParam: word; lParam: Longint): Longint; export;  
var H: HWND;  
begin  
 {если Code>=0, то ловушка может обработать событие}
 if Code >= 0 then  
  begin  
  {это те клавиши?}
  if (wParam = VK_F8) and
      (lParam and $40000000 = 0) then  
   begin  
     
       MyProc(работаем с мышкой)
   
   end;  
  
end;  
   
{при выгрузке DLL надо снять ловушку}
procedure LocalExitProc; far;  
begin  
 if HookHandle<>0 then  
  begin  
  UnhookWindowsHookEx(HookHandle);  
  ExitProc := SaveExitProc;  
  end;  
end;  

{инициализация DLL при загрузке ее в память}
begin  
 {устанавливаем ловушку}
 HookHandle := SetWindowsHookEx(wh_Keyboard, Key_Hook, hInstance, 0);  
 if HookHandle = 0 then  
  MessageBox(0, 'Unable to set hook!', 'Error', mb_Ok)  
 else
  begin  
  SaveExitProc := ExitProc;  
  ExitProc := @LocalExitProc;  
  end;
end.  



Далее приведен код модуля в Delphi, который загружает DLL и обрабатывает  
сообщения от ловушки, просто отображая их в Label1.  

unit Unit1;  

interface  

uses  
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,  
Forms, Dialogs, StdCtrls;  

{пользовательские сообщения}
const  
  
   
type  
  TForm1 = class(TForm)  
  
    procedure FormCreate(Sender: TObject);  
  private  
   {обработчики сообщений}


var  
  Form1: TForm1;  
  P : Pointer;  

implementation  

{$R *.DFM}

{загрузка DLL}

function Key_Hook : Longint; far; external 'SendKey';  


procedure TForm1.FormCreate(Sender: TObject);  
begin  
 {если не использовать вызов процедуры из DLL в программе,  
  то компилятор удалит загрузку DLL из программы}
  P:=@Key_Hook;  
end;

end.