VCL - SendMessge

[stalkernet]

Всем хорошего дня.

Ситуация такая.
есть старый софт. писаный на Delphi 7 под XP. работал на старом ноуте под ХР. ноут сдох от старости. купили новый под семеркой. возникли траблы с адаптацией под стенд. с железом решилось методом покупки правильных переходников. с софтом тоже. пришлось писать приблуду которая считывает из оконных элементов данные и пишет протокол с нужной последовательностью.

осталась одна проблема изза того что у ХР бордюр 3 пикселя, а WIN7 - 8. график выводимый на форму усекается. А график нужен. Софт переписывать будут - но "потом"..... а работать надо сейчас.
исходников нет. иначе пересобралбы под WIN7 и не морочил .....
поэтоу возникла мысль - из приблуды послать сообщение на отключение бордюра окна.
чтото типа

var
x : HWND;

x := FindWindow(nil,'TForm1');
sendmessage(x,wm_close,0,0);

напрямую сообщения 'wm_' отключающего бордюр не нашел. Поэтому буду рад услышать советы.

[stalkernet]

Да уж - склероз. давно WINAPI не шерстил.

решение вопроса

SetWindowLong(wnd, GWL_STYLE, GetWindowLong(wnd, GWL_STYLE) and not(WS_CAPTION or WS_THICKFRAME));