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

int PASCAL WinMain(HANDLE hInstance, HANDLE hPrevInstance,
LPSTR lpszCmdLine, int nCmdShow)
{
WNDCLASS wndClass;
MSG msg;
HWND hWnd;
RECT rect;
if ( !hPrevInstance )
{
wndClass.style= CS_HREDRAW | CS_VREDRAW ;
wndClass.lpfnWndProc= WndProc;
wndClass.cbClsExtra = 0;
wndClass.cbWndExtra= 0;
wndClass.hInstance = hInstance;
wndClass.hIcon = LoadIcon(NULL, szAppName);
wndClass.hCursor= LoadCursor(NULL, IDC_CROSS);
wndClass.hbrBackground= GetStockObject(WHITE_BRUSH );
wndClass.lpszMenuName= NULL;
wndClass.lpszClassName= szAppName;
if (!RegisterClass(&wndClass))
return 0;
}
hWnd = CreateWindow(szAppName,
"MEDYT-01", WS_OVERLAPPEDWINDOW,
CW_USEDEFAULT, 0, CW_USEDEFAULT, 0,
0, 0, hInstance, 0);
GetClientRect(hWnd, (LPRECT) &rect);
hEditWnd = CreateWindow ("Edit",NULL, WS_CHILD | WS_VISIBLE |
ES_MULTILINE | WS_VSCROLL |
WS_HSCROLL | ES_AUTOHSCROLL |
ES_AUTOVSCROLL, 0, 0,(rect. right -
rect. left),
(rect. bottom - rect.
top),hWnd,IDC_EDIT, hIstance,NULL);
if( ! hEditWnd )
{
DestroyWindow(hWnd);
return 0;
}
ShowWindow(hWnd, nCmdShow);
UpdateWindow(hWnd);
while (GetMessage(&msg, NULL, 0, 0))
{
TranslateMessage(&msg );
DispatchMessage(&msg );
}
return 0;
}
long FAR PASCAL WndProc (HWND hWnd, unsigned Message,
WORD wParam, LONG lParam)
- 404-