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

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

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

10.06.2010, 21:32

OneMiay

Познающий

Регистрация: 04.06.2006

Сообщений: 33

Провел на форуме:
204953

Репутация: 117

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

Всем привет! Вот возникла необходимость переписать программку с ХР на 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;