SendMessage передать тип сообщения в переменной
 

Компилирует без ошибок.

function PostMessagePost(h:thandle; mes:cardinal; i:word; j:longint):longint;
begin
SendMessage(h, mes, i, j);

//хочу закрыть окно с помощью wm_Close, но не работает, а если делаю так, то работает:

SendMessage(h, wm_Close, i, j);

end;

Вызываю так:

PostMessagePost(FindWindow(nil, p_1), StrToCard(p_2), integer(p_3), integer(p_4)); //p_1,p_2,p_3,p_4: PChar

//В каком месте я лошара? )))

p_1 = Имя окна
p_2 = wm_Close
p_3 = 0
p_4 = 0