Suppress Window Title Bar

Dawn, give this a go:

Code:
def var li_hwnd as int no-undo.
 
procedure GetParent external "user32.dll":
	def input parameter hwnd as long no-undo.
	def return parameter WinLong as long no-undo.
end procedure
 
procedure SetWindowLongA external "user32.dll":
	def input parameter hwnd as long no-undo.
	def input parameter nIndex as long no-undo.
	def input parameter dwNewLong as long no-undo.
end procedure
 
run GetParent({&WINDOW-NAME}:hwnd, output li_hwnd).
run SetWindowLongA(li_hwnd, -16, -1811939132).
run SetWindowLongA(li_hwnd, -20,  327937).
 
Oops forgot one step. Should have remembered I have came across this issue before (see minimize and maximize box) must be getting old and forgeting things.


Code:
def var li_hwnd as int no-undo.
 
procedure GetParent external "user32.dll":
	def input parameter hwnd as long no-undo.
	def return parameter WinLong as long no-undo.
end procedure.
 
procedure SetWindowLongA external "user32.dll":
	def input parameter hwnd as long no-undo.
	def input parameter nIndex as long no-undo.
	def input parameter dwNewLong as long no-undo.
end procedure.

procedure SetWindowPos external "user32.dll":
    def input parameter hwnd as long.
    def input parameter InsAfter as long.
    def input parameter x as short.
    def input parameter y as short.
    def input parameter cx as short.
    def input parameter xy as short.
    def input parameter uFlags as unsigned-short.
end procedure.
 
run GetParent({&WINDOW-NAME}:hwnd, output li_hwnd).
run SetWindowLongA(li_hwnd, -16, -1811939132).
run SetWindowLongA(li_hwnd, -20,  327937).
run SetWindowPos(li_hwnd, 0, 0, 0, 0, 0, 2 + 1 + 4 + 32).
 
Back
Top