- Revert 47615. Please fix actual sysreg instead of adding inconsistency between...
[reactos.git] / rosapps / templates / old_wordpad / wordpad.c
1 #include "precomp.h"
2
3 HINSTANCE hInstance;
4 HANDLE ProcessHeap;
5
6 int WINAPI
7 _tWinMain(HINSTANCE hThisInstance,
8 HINSTANCE hPrevInstance,
9 LPTSTR lpCmdLine,
10 int nCmdShow)
11 {
12 LPTSTR lpAppName, lpVersion, lpTitle;
13 HWND hMainWnd;
14 MSG Msg;
15 BOOL bRet;
16 int Ret = 1;
17 size_t len;
18 INITCOMMONCONTROLSEX icex;
19
20 hInstance = hThisInstance;
21 ProcessHeap = GetProcessHeap();
22
23 icex.dwSize = sizeof(INITCOMMONCONTROLSEX);
24 icex.dwICC = ICC_BAR_CLASSES | ICC_COOL_CLASSES;
25 InitCommonControlsEx(&icex);
26
27 if (!AllocAndLoadString(&lpAppName, hInstance, IDS_APPNAME) ||
28 !AllocAndLoadString(&lpVersion, hInstance, IDS_VERSION) )
29 {
30 MessageBox(NULL,
31 _T("Error loading resource "),
32 NULL,
33 0);
34 return 1;
35 }
36
37 len = _tcslen(lpAppName) + _tcslen(lpVersion);
38 lpTitle = (TCHAR*) HeapAlloc(ProcessHeap,
39 0,
40 (len + 2) * sizeof(TCHAR));
41
42 wsprintf(lpTitle,
43 _T("%s %s"),
44 lpAppName,
45 lpVersion);
46
47 if (InitMainWindowImpl())
48 {
49 if (InitEditWindowImpl())
50 {
51 hMainWnd = CreateMainWindow(lpTitle,
52 nCmdShow);
53 if (hMainWnd != NULL)
54 {
55 /* pump the message queue */
56 while((bRet = GetMessage(&Msg,
57 NULL,
58 0,
59 0) != 0))
60 {
61 if (bRet != (BOOL)-1)
62 {
63 if (!MainWndTranslateMDISysAccel(hMainWnd,
64 &Msg))
65 {
66 TranslateMessage(&Msg);
67 DispatchMessage(&Msg);
68 }
69 }
70 }
71
72 Ret = 0;
73 }
74
75 UninitEditWindowImpl();
76 }
77
78 UninitMainWindowImpl();
79 }
80
81 LocalFree((HLOCAL)lpAppName);
82
83 return Ret;
84 }