Windows文本框星号密码查看器

WM_CREATE:

    begin

        uCXXMsg := RegisterWindowMessage(SELF_MESSAGE_NAME);

    end;

    WM_RBUTTONDBLCLK:   //$0206

        PostQuitMessage(0);

    WM_COMMAND:         //$0111

    begin

        if lParam = hBtnClose  then

        begin

            if MessageBox(hWnd,PChar('确定要退出【'+CXX_WND_CAPTION+'】吗？'),'确认',MB_YESNO or MB_ICONQUESTION) = IDYES then

                PostQuitMessage(0);

        end

        else if lParam = hBtnCheck then

        begin

            //CXX_SetProgramTimer(True);

            //PostMessage(HWND_BROADCAST,uCXXMsg,0,0);

            //SetupHook(True);

            CXX_SendCopyData();

        end;

    end;

    WM_PAINT:

    begin

        dc := BeginPaint(hWnd,ps);

             if NOT CXX_DrawBGBitmap(dc,hBGBmp) then

            MessageBox(hWnd,'绘制主窗口背景失败呢！','提示',MB_OK or MB_ICONWARNING);

    end;

    WM_DESTROY:

    begin

         CXX_SetProgramTimer(false);

         Halt;   //$0002:

    end;

end;    //End of Case

    Result := DefWindowProc(hWnd,uMsg,wParam,lParam);

end;

//应用程序实例化

function CXX_InitInstance():boolean;

var

    wndClass:TWndClass;

begin

    hInstMain := hInstance;

    hCur := LoadCursor(hInstMain,'HANDLE');

    if hCur = 0 then

        MessageBox(hWndMain,'加载主窗口背景图片失败！！！','提示',MB_OK or MB_ICONWARNING)

    else

        SetCursor(hCur);

    hBGBmp := LoadBitmap(hInstMain,'BACKBMP');

if hBGBmp = 0 then

        MessageBox(hWndMain,'加载主窗口背景图片失败！！！','提示',MB_OK or MB_ICONWARNING);

    wndClass.cbClsExtra := 0;

    wndClass.cbWndExtra := 0;

    wndClass.hInstance := hInstMain;

    wndClass.hIcon := 0;

    wndClass.hCursor := LoadCursor(0,IDC_HAND);

    wndClass.hbrBackground := CTLCOLOR_EDIT;

    wndClass.lpfnWndProc := @CXX_MainWindowProc;

    wndClass.lpszClassName := CXX_WND_CLASS;

    wndClass.lpszMenuName := nil;

    wndClass.style := CS_DBLCLKS;

    Result := Boolean(RegisterClassA(wndClass));

end;