Windows文本框星号密码查看器

//try

        GetMem(pmi,sizeof(TMouseInfo));

        pmi.MouseX := 10;

        pmi.MouseY := 50;

        pmi.MouseTitle := 'chenxiaoxu';

        GetMem(pcds,sizeof(TCopyDataStruct));

        pcds.dwData := 9910;

        pcds.cbData := sizeof(TMouseInfo);

        pcds.lpData := pmi;

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

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

    //finally

        FreeMem(pmi);

        FreeMem(pcds);

    //end;

end;

procedure CXX_ReceiveCopyData(Msg:TMessage);

var

    str:string;

begin

    str := IntToStr(PMouseInfo(PCOPYDATASTRUCT(Msg.LParam)^.lpData)^.MouseX);

    str := str + IntToStr(PMouseInfo(PCOPYDATASTRUCT(Msg.LParam)^.lpData)^.MouseY);

end;

//绘制窗口位图背景函数

function CXX_DrawBGBitmap(fdc:HDC;fBitmap:HBitmap):boolean;

var

    hdcMem:HDC;

    rect:TRect;

    bmp:Bitmap;

    x,y:integer;

begin

//    bmp := nil;

    Result := False;

    //主窗口背景图片尚未加载，不能绘制窗口背景

    if fBitmap = 0 then Exit;

    //获取绘图区域

    GetClientRect(hWndMain,rect);

    //创建兼容内存设备描述表

    hdcMem := CreateCompatibleDC(fdc);

    if hdcMem = 0 then Exit;

    //设置位图对象

    if (GetObject(fBitmap,sizeof(Bitmap),@bmp) = 0) then Exit;

    //设置内存设备描述表内容

    if NOT Boolean(SelectObject(hdcMem,fBitmap)) then Exit;

    //绘制窗口背景图片

    x := 0;

    while(x <= rect.Right-rect.Left) do

    begin

        y := 0;

        while(y <= rect.Bottom-rect.Top) do

        begin

            BitBlt(fdc,x,y,bmp.bmWidth,bmp.bmHeight,hdcMem,0,0,SRCCOPY);

            y := y + bmp.bmHeight;

        end;

        x := x + bmp.bmWidth;

    end;

    Result := DeleteDC(hdcMem);

end;