00001 
00002 
00003 
#include "ab.h"
00004 
00005 ULONGLONG 
FAW(msProfSendMessage)(HDC hdc, ULONG Iter)
00006 {
00007 
00008     HWND hwnd;
00009     
INIT_TIMER;
00010     
AW2(WNDCLASS) wc;
00011 
00012     wc.style            = 0;
00013     wc.lpfnWndProc      = IF2(CreateDestroyWndProc, CreateDestroyWndProcW);
00014     wc.cbClsExtra       = 0;
00015     wc.cbWndExtra       = 0;
00016     wc.hInstance        = ghinst;
00017     wc.hIcon            = LoadIcon(ghinst, (LPSTR)IDUSERBENCH);
00018     wc.hCursor          = LoadCursor(NULL, IDC_ARROW);
00019     wc.hbrBackground    = (HBRUSH)(COLOR_APPWORKSPACE + 1);
00020     wc.lpszMenuName     = NULL;
00021     wc.lpszClassName    = L2("CreateDestroyWindow");
00022 
00023     if (!AW2(RegisterClass)(&wc)) {
00024         MessageBox(NULL, 
"18RegisterClass call failed.",
00025                 
"ERROR!", MB_OK);
00026         
return (ULONGLONG)(0);
00027     }
00028 
00029     hwnd = 
AW2(CreateWindow)(
L2(
"CreateDestroyWindow"), 
NULL, WS_CHILD,
00030             CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
00031             
ghwndMDIClient, 
NULL, 
ghinst, 
NULL);
00032 
00033     
START_TIMER;
00034 
00035     
while (ix--)
00036     {
00037         
AW1(SendMessage)(hwnd, WM_SETTEXT, 0, (LPARAM)
L1(
"A fairly reasonable bit of text"));
00038     }
00039 
00040     
END_TIMER_NO_RETURN;
00041 
00042     
DestroyWindow(hwnd);
00043     
AW2(UnregisterClass)(
L2(
"CreateDestroyWindow"), 
ghinst);
00044 
00045     
RETURN_STOP_TIME;
00046 
00047 }
00048 
00049 
#undef A1
00050 
#undef A2