blob: d919910d1a46fbf279c09bc6b1b0fd1fd2002128 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{ %target=win32 }
uses
windows;
var
WindowHandle : HWND;
begin
WindowHandle:=0;
// the next code must compile but with a range check warning
SetWindowLong(WindowHandle, GWL_STYLE, WS_POPUP or WS_CLIPCHILDREN);
halt(0);
end.
|
