fb:porticula NoPaste
WinAPI (Suspicious pointer assignment)
Uploader: | Sebastian |
Datum/Zeit: | 23.06.2007 10:12:46 |
DIM wMsg AS MSG
DIM wcls AS WNDCLASS
DIM szAppName AS STRING
DIM hWnd AS HWND
DIM AppName As ZString Ptr
Dim BufferLen As Integer
BufferLen = 255
WinMain = 0
szAppName = "MyButtonProgClass"
WITH wcls
.style = CS_HREDRAW OR CS_VREDRAW
.lpfnWndProc = @WndProc
.cbClsExtra = 0
.cbWndExtra = 0
.hInstance = hInstance
.hIcon = LoadIcon( null, IDI_APPLICATION )
.hCursor = LoadCursor( null, IDC_ARROW )
.hbrBackground = COLOR_WINDOW
.lpszMenuName = null
.lpszClassName = STRPTR(szAppName)
END WITH