Удалить стиль $WS_BORDER(границы окна) консольного приложения

[gloss]

Поискав в интернете наткнулся на такой ответ, границы он убирает, но окно начинает искажаться.

Спойлер

До:

После:

Можно ли это поправить?

 

[gloss]

Делает тоже самое и кода чуть поменьше
Но если убрать $WS_SIZEBOX ничего не происходит.

$wh = WinGetHandle($namegood)
$Style = _WinAPI_GetWindowLong($wh, $GWL_STYLE) ;Capture Existing Style
If BitAND($Style, $WS_BORDER) = $WS_BORDER Then ;if $WS_SIZEBOX IS Set
	_WinAPI_SetWindowLong($wh, $GWL_STYLE, BitXOR($Style, $WS_BORDER + $WS_SIZEBOX)) ;REMOVE $WS_SIZEBOX
	;_WinAPI_UpdateWindow($wh)
EndIf

В общем *UP*


Добавлено:

Сообщение автоматически объединено: 27 Мар 2015

Так как ответа я не нашел, а самому додумать не получилось ограничился этим

_changeslyle($name)
Func _changeslyle($winname)
	$wh = WinGetHandle($winname)
	$ExStyle = _WinAPI_GetWindowLong($wh, $GWL_EXSTYLE) ;
	$NewExStyle = BitOR($ExStyle, $WS_EX_LAYERED + $WS_EX_TRANSPARENT) ;позволяет кликать сквозь окно
	_WinAPI_SetWindowLong($wh, $GWL_EXSTYLE, $NewExStyle)
EndFunc