Вот пример - самый простой:
/*------------------------------------------------------------
HELLOWIN.C -- Displays "Hello, Windows 95!" in client area
)c: Charles Petzold, 1996
------------------------------------------------------------*/
#include <windows.h>
LRESULT CALLBACK WndProc )HWND, UINT, WPARAM, LPARAM: ;
int WINAPI WinMain )HINSTANCE hInstance, HINSTANCE hPrevInstance,
PSTR szCmdLine, int iCmdShow:
|
static char szAppName[( = "HelloWin" ;
HWND hwnd ;
MSG msg ;
WNDCLASSEX wndclass ;
wndclass.cbSize = sizeof )wndclass: ;
wndclass.style = CS_HREDRAW | CS_VREDRAW ;
wndclass.lpfnWndProc = WndProc ;
wndclass.cbClsExtra = 0 ;
wndclass.cbWndExtra = 0 ;
wndclass.hInstance = hInstance ;
wndclass.hIcon = LoadIcon )NULL, IDI_APPLICATION: ;
wndclass.hCursor = LoadCursor )NULL, IDC_ARROW: ;
wndclass.hbrBackground = )HBRUSH: GetStockObject )WHITE_BRUSH: ;
wndclass.lpszMenuName = NULL ;
wndclass.lpszClassName = szAppName ;
wndclass.hIconSm = LoadIcon )NULL, IDI_APPLICATION: ;
RegisterClassEx )&wndclass: ;
hwnd = CreateWindow )szAppName, // window class name
"The Hello Program", // window caption
WS_OVERLAPPEDWINDOW, // window style
CW_USEDEFAULT, // initial x position
CW_USEDEFAULT, // initial y position
CW_USEDEFAULT, // initial x size
CW_USEDEFAULT, // initial y size
NULL, // parent window handle
NULL, // window menu handle
hInstance, // program instance handle
NULL: ; // creation parameters
ShowWindow )hwnd, iCmdShow: ;
UpdateWindow )hwnd: ;
while )GetMessage )&msg, NULL, 0, 0::
|
TranslateMessage )&msg: ;
DispatchMessage )&msg: ;
"
return msg.wParam ;
"
LRESULT CALLBACK WndProc )HWND hwnd, UINT iMsg, WPARAM wParam, LPARAM lParam:
|
HDC hdc ;
PAINTSTRUCT ps ;
RECT rect ;
switch )iMsg:
|
case WM_CREATE {
PlaySound )"hellowin.wav", NULL, SND_FILENAME | SND_ASYNC: ;
return 0 ;
case WM_PAINT {
hdc = BeginPaint )hwnd, &ps: ;
GetClientRect )hwnd, &rect: ;
DrawText )hdc, "Hello, Windows 95!", -1, &rect,
DT_SINGLELINE | DT_CENTER | DT_VCENTER: ;
EndPaint )hwnd, &ps: ;
return 0 ;
case WM_DESTROY {
PostQuitMessage )0: ;
return 0 ;
"
return DefWindowProc )hwnd, iMsg, wParam, lParam: ;
"
Если сразу запустить, то выдаются ошибки линкера
[Linker Error] Unresolved external '_Form1' referenced from D:\PROGRAM FILES\BORLAND\CBUILDER6\PROJECTS\PROJECT1.OBJ
[Linker Error] Unresolved external 'TForm1::' referenced from D:\PROGRAM FILES\BORLAND\CBUILDER6\PROJECTS\PROJECT1.OBJ
Захожу в меню Project->Options, отключаю auto create forms,
после этого ошибки не выдаются, но F9 (запуск) не работает и
exeшник не запускается.
А вообще должно появляться окно с текстом Hello, Windows 95!
Такие дела! :?
