Windows文本框星号密码查看器

//主程序函数

procedure CXX_RunMainProgram();

var

    myMsg:TMsg;

begin

    if NOT CXX_InitInstance() then

        Exit;

    hWndMain := CreateWindowEx(WS_EX_CLIENTEDGE or WS_EX_TOPMOST,

                        CXX_WND_CLASS,CXX_WND_CAPTION,

                        WS_VISIBLE or WS_SYSMENU or WS_MINIMIZEBOX,

                        0,0,320,150,0,0,hInstMain,nil);

    hStcPos := CreateWindowEx(0,'static','鼠标位置：',

                        WS_VISIBLE OR WS_CHILD,

                        5,10,80,20,

                        hWndMain,0,hInstMain,nil);

    hEdtPos := CreateWindowEx(WS_EX_CLIENTEDGE,'Edit','',

                        WS_VISIBLE OR WS_CHILD,

                        100,10,200,20,

                        hWndMain,0,hInstMain,nil);

    hStcTitle := CreateWindowEx(0,'static','获取密码：',

                        WS_VISIBLE OR WS_CHILD,

                        5,50,80,20,

                        hWndMain,0,hInstMain,nil);

    hEdtTitle := CreateWindowEx(WS_EX_CLIENTEDGE,'Edit','',

                        WS_VISIBLE OR WS_CHILD,

                        100,50,200,20,

                        hWndMain,0,hInstMain,nil);

    hBtnCheck := CreateWindowEx(WS_EX_STATICEDGE or WS_EX_CLIENTEDGE,'Button','发送消息',

                        WS_VISIBLE OR WS_CHILD,

                        10,85,100,30,

                        hWndMain,0,hInstMain,nil);

    hBtnClose := CreateWindowEx(WS_EX_STATICEDGE or WS_EX_CLIENTEDGE,'Button','退出程序',

                        WS_VISIBLE OR WS_CHILD,

                        180,85,100,30,

                        hWndMain,0,hInstMain,nil);

    //主程序函数循环

    while(GetMessage(myMsg,hWndMain,0,0)) do

    begin

        TranslateMessage(myMsg);

        DispatchMessage(myMsg);

    end;

end;

begin

    CXX_RunMainProgram();

end.