Programowanie w C++ Borland Builder - Wyższa Szkoła Informatyki ...

wndClass.hbrBackground= GetStockObject(WHITE_BRUSH );
wndClass.lpszMenuName= szAppName;
wndClass.lpszClassName= szAppName;
if (!RegisterClass(&wndClass))
return 0;
}
hInst = hInstance;
hWnd = CreateWindow(szAppName, "DLGBOX1", WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT, 0, CW_USEDEFAULT, 0, 0, 0, hInstance, 0);
ShowWindow(hWnd, nCmdShow);
UpdateWindow(hWnd);
while (GetMessage(&msg, 0, 0, 0))
{
TranslateMessage(&msg );
DispatchMessage(&msg );
}
return 0;
}
BOOL FAR PASCAL ControlProc (HWND hDlg, unsigned Message,
WORD wParam, LONG lParam)
{
switch(msg)
{
case WM_INITDIALOG:
return TRUE;
break;
case WM_COMMAND:
switch(wParam)
{
case IDOK:
case IDCANCEL:
EndDialog(hDlg,0);
return TRUE;
}
break;
}
return (0);
}
long FAR PASCAL WndProc (HWND hWnd, unsigned msg,
WORD wParam, LONG lParam)
{
FARPROC lpControlProc;
switch(Message)
{
case WM_COMMAND:
switch(wParam)
{
case IDM_ABOUT:
lpControlProc = MakeProcInstance((FARPROC) ControlProc, hInst);
- 413-