Windows文本框星号密码查看器

try

        GetMem(pmi,sizeof(TMouseInfo));

        pmi.MouseX := pt.X;

        pmi.MouseY := pt.Y;

        pmi.MouseTitle := pwd;

        GetMem(pcds,sizeof(TCopyDataStruct));

        pcds.dwData := 9910;

        pcds.cbData := sizeof(TMouseInfo);

        pcds.lpData := pmi;

        SendMessage(hDec,WM_COPYDATA,0,LPARAM(pcds));

        //PostMessage(hDec,WM_COPYDATA,Handle,LPARAM(pcds));

    finally

        FreeMem(pmi);

        FreeMem(pcds);

    end;

end;

function CXX_MouseHookProc(iCode:integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall;export;

var

    pMhs:PMOUSEHOOKSTRUCT;

    wnd:HWND;

    style:LongInt;

    MousePos:TPoint;

    MouseTitle:TMTitle;

begin

    if iCode = HC_ACTION then

    begin

        FillChar(MouseTitle,255,0);

        pMhs := PMOUSEHOOKSTRUCT(lParam);

        MousePos := pMhs.pt;

        wnd := WindowFromPoint(pmhs.pt);

        style := GetWindowLong(wnd,GWL_STYLE);

        if (style and ES_PASSWORD) = ES_PASSWORD then

        begin

            SendMessage(wnd,WM_GETTEXT,256,Integer(@MouseTitle[0]));

            //发送截取的信息[]

            CXX_SendCopyData(MousePos,MouseTitle);

        end;

    end;

    Result := CallNextHookEx(hkMouseHook,iCode,wParam,lParam);

end;