Портировать код XP в Seven!

[OneMiay]

Всем привет! Вот возникла необходимость переписать программку с ХР на 7-вен.
Как портировать вот такой код?

function HookProc(Code: integer; WParam: word; LParam: Longint): Longint; stdcall;
var
msg: PEVENTMSG;
begin
if Code >= 0 then begin
result := 0;
msg := Pointer(LParam);
with Form1 do
if msg.message = WM_LBUTTONDOWN then
l_click:=true;
end
else
result := CallNextHookEx(HookHandle, code, WParam, LParam);

Как быть, какие есть способы решения моей проблемки???
Помогите любым советом, сам я сейчас весь в гугле. Может кто сталкивался с похожей ситуацией и нашёл какое-небудь решение???
Отблагодарю за любую помошь. Спосибо что уделиле время на прочтения данного поста.
end;

[Chrome~]

В каком именно месте кода возникает ошибка? Или функция неправильно работает?

[OneMiay]

Ошибки при компеляции нету, функция просто не работатет... Это скорее всего связано с изменением системных сообщений.

[slesh]

Возможно просто прога должна запускаться от админа с повышенными правами.
Или ты сделал в виде exe а надо в виде DLL

[OneMiay]

Возможно просто прога должна запускаться от админа с повышенными правами.
Или ты сделал в виде exe а надо в виде DLL
Да, ты прав, проблема оказалась именно в провах. Разобрался сам. Помогла софтина ApplicationVerifier.