Здравствуйте, jcp, Вы писали:

jcp>Здравствуйте, Clickmaker, Вы писали:

C>>нифига не понятно. Почему w1:=555555; зашито в коде? чем это тогда отличается от константы?
C>>и почему при установке хука значение не передавать?

jcp>Нет блин я буду всю процедуру записи в w1 писать. все сократил по максимуму. оставив главное. когда w1 константа
jcp> все прекрасно пашет.
jcp>смею заметить что запись в эту переменную происходит при загрузке. до установки хука.

а так не пойдет?

function MsgProc(Code: integer; wParam: Word; lParam: Longint): Longint; stdcall;
begin
if w1 = -1 then begin
w1 := вычисляем w1
end;
...
end;