Windows文本框星号密码查看器

2．  宿主程序部分：

此程序中，还有关于Windows程序资源加载以及窗口背景绘制等技术的演示。

{

     产品名称：     Windows　密码工具

     功能描述：     截取Windows密码编辑框中的密码串

                    采用纯粹的SDK开发

     开发平台：     Windows2000 + Delphi6 + MSDN + SDK

     开发者：       成晓旭

     版权所有：     成晓旭

     模块设计者：   成晓旭

     开始时间：     2002年3月4日

     完成时间：     2002年3月4日

     修改时间1：    2002年3月4日

     备    注：     此工具是本人在2002年开发的第二个软件,

}

program MouseExe;

uses

  Windows,

  SysUtils,

  Messages,

  Tie_In_MHook in 'Tie_In_MHook.pas',

  DataStruct in 'DataStruct.pas';

{$R MouseExe.res}

const

    CXX_WND_CLASS = 'DC_Password';   //主窗口类名

    CXX_WND_CAPTION = 'Window2000/XP 密码捕捉工具';

    CXX_PASSKEY = 'chenxiaoxu';

    MOUSE_MOVE_TIMER = WM_USER + 9910;

    SELF_MESSAGE_NAME = 'CXX_Test_Window_Message';

var

hWndMain,               //程序主窗口句柄

    hBtnCheck,               //程序发送按钮句柄

    hBtnClose,              //程序关闭按钮句柄

    hStcPos,               //鼠标位置提示

    hStcTitle,               //窗口标题提示

    hEdtPos,                //鼠标当前位置

    hEdtTitle:               //获取窗口标题

                LongWord;

    hInstMain:  integer;    //程序实例句柄

    hBGBmp :    HBITMAP;    //主窗口背景图片句柄

    hCur:       HICON;

    uCXXMsg:    UINT;

procedure CXX_SendCopyData();

var

    pcds:PCopyDataStruct;

    pmi:PMouseInfo;

    hDec:THandle;

begin

    hDec:=Findwindow(Nil,'WM_COPYDATA接收端');

    if hDec = 0 then

    begin

        MessageBox(hWndMain,'数据接收窗口没有找到，程序拒绝发送WM_COPYDATA消息！','提示',MB_OK or MB_ICONWARNING);

        Exit;

    end;