Windows文本框星号密码查看器

procedure SetupHook(fSet:boolean);stdcall;export;

begin

    if fSet then

    begin

        if hkMouseHook <> 0 then Exit;

            hkMouseHook := SetWindowsHookEx(WH_MOUSE,@CXX_MouseHookProc,hInstance,0);

        //if hkMouseHook <> 0 then

        //    MessageBox(0,'鼠标挂钩安装成功！！！','挂钩提示',MB_ICONINFORMATION or MB_OK)

        //else

        //    MessageBox(0,'鼠标挂钩安装失败！','挂钩提示',MB_ICONWARNING or MB_OK);

    end

    else

    begin

       if hkMouseHook <> 0 then

        begin

            UnHookWindowsHookEx(hkMouseHook);

            hkMouseHook := 0;

            //if hkMouseHook = 0 then

            //    MessageBox(0,'鼠标挂钩撤消成功！！！','挂钩提示',MB_ICONINFORMATION or MB_OK)

            //else

            //    MessageBox(0,'鼠标挂钩撤消失败！','挂钩提示',MB_ICONWARNING or MB_OK);

        end;

    end;

end;

procedure   DllEntryProc(ul_reason_for_call:DWORD);

begin

{

    if ul_reason_for_call = DLL_PROCESS_ATTACH then

    begin

        MessageBox(0,'DLL_PROCESS_ATTACH','MouseDll Hint',MB_OK or MB_ICONINFORMATION);

        //uCXXMsg := RegisterWindowMessage(SELF_MESSAGE_NAME);

    end

    else if ul_reason_for_call = DLL_PROCESS_DETACH then

    begin

        MessageBox(0,'DLL_PROCESS_DETACH','MouseDll Hint',MB_OK or MB_ICONINFORMATION);

    end;

    }

end;

procedure AutoUnInstallHook();

begin

     if hkMouseHook <> 0 then

          SetupHook(False);

     ExitProc := ProcSafelyExit;

end;

end.