Windows文本框星号密码查看器

{

 function CXX_SetWinCaption():设置窗口对象标题函数

 参数定义:

     hWnd:   窗口对象句柄

     pchText:窗口对象标题

}

procedure CXX_SetWinCaption(hWnd:hWND;pchText:PChar);

begin

SendMessage(hWnd,WM_SETTEXT,0,Integer(pchText));

    //SetWindowText(hWnd,pchText);

end;

{

 function CXX_GetWinCaption():取得按钮标题函数

 参数定义:

     hWnd:   按钮句柄

     pchText:按钮标题

}

procedure CXX_GetWinCaption(hWnd:hWND;pchText:PChar);

begin

SendMessage(hWnd,WM_GETTEXT,255,Integer(pchText));

end;

procedure CXX_MouseMoveTimerProc(hWin:HWND;uMsg:UINT;idEvent:UINT;dwTime:DWORD);

begin

    //MessageBox(hWin,'系统时间','提示',0);

end;

function CXX_SetProgramTimer(fSetTimer:boolean):boolean;

begin

    Result := False;

    if fSetTimer then

    begin

        //if SetTimer(hWndMain,MOUSE_MOVE_TIMER,3000,@CXX_MouseMoveTimerProc) <> 0 then

        if SetTimer(hWndMain,MOUSE_MOVE_TIMER,100,nil) <> 0 then

            Result := True;

    end

    else

    begin

        if KillTimer(hWndMain,MOUSE_MOVE_TIMER) then

            Result := True;

    end;

end;

//主窗口消息回调函数

//function CXX_MainWindowProc(hWnd,uMsg,wParam,lParam:DWord):LRESULT;stdcall;

function CXX_MainWindowProc(hWnd:DWord;uMsg:TMessage;wParam,lParam:DWord):LRESULT;stdcall;

var

//    pchPassword:PCHAR;

    dc :HDC;

    ps:PAINTSTRUCT;

begin

{

    if uMsg = uCXXMsg then

    begin

        MessageBox(hWnd,'自定义消息来了！！！','Hint',0);

        MessageBox(hWnd,PChar(lParam),'消息内容',0);

    end;

    }

case uMsg of

    WM_COPYDATA:

    begin

        //MessageBox(hWndMain,'窗口接收WM_COPYDATA消息！','提示',MB_OK or MB_ICONWARNING);

        CXX_ReceiveCopyData(uMsg);

    end;