// 顯示鼠標當前所在的文本框內容
function ShowWindowText():string;
var
    pPoint:TPoint;
    WinText:string;
    mText:PChar;
    hWnd:Integer;
begin
    GetCursorPos(pPoint);
    SetLength(WinText,256);
    hWnd:=WindowFromPoint(pPoint);
    GetWindowText(hWND,PChar(WinText),256);
    SetLength(WinText,StrLen(PChar(WinText)));
    result:=WinText;
end;
用上面的這個方法就可以查看 Foxmail 的密碼，不信的話你可以自己試試（Foxmai 開發組要注意了~-^）

    可能 Borland 也發現了這個問題，到了 Delphi 6，用該方法只能查看到文本框的 Name 屬性了，不過話雖如此，還是瞞不過“iOpus PassWord Recovery XP”，那么我們是不是就沒有辦法了呢？回答是否定的，這回大家就看看我的辦法吧！

    既然要獲得文本框的內容，無非是采用發送消息的方式，如果我們把消息屏蔽掉，它是不是就沒有辦法了呢？對，既然問題已經找到，我們就開始吧，先從 TEdit 派生一個 TCEdit ，重載它的消息事件，將外來的消息屏蔽掉，這時候就有人有異議了：“你把消息屏蔽，那么是不是程序本身和 Delphi 也不知道它的內容了”，這個問題問得好，對于這個問題，我們可以再重載它的 GetText 方法，但是從我的代碼中各位并沒有看到我將該方法重載，我的考慮是因為，GetText 方法會首先成為一些破解程序的攻擊目標，故此沒有使用，而是新增了一個方法，以后就可以用這個方法去訪問文本框的值了，因為文本框只認識這個方法，這樣一來，就是“iOpus Password Recovery XP”也沒有辦法了:)，下面列出源代碼，請各位指教。

unit uCEdit;

interface

uses Windows,StdCtrls,Messages,Classes;

TYPE
    TCEdit=class(TEdit)
    PRivate
        bEnable:boolean;            // 允許使用
        procedure WndProc(var Msg: TMessage);override;
    public
        constructor Create(AOwner: TComponent); override;

        function MyGetText():string;
    published

    end;

procedure Register;

implementation

{ CEdit }

//注冊控件
procedure Register;
begin
    RegisterComponents('Additional', [TCEdit]);
end;

constructor TCEdit.Create(AOwner: TComponent);
begin
    inherited Create(AOwner);
    // 禁止使用
    bEnable:=false;
end;

function TCEdit.MyGetText: string;
begin
    // 程序本身還是用允許的
    bEnable:=true;
   
    result:=Text;
end;

procedure TCEdit.WndProc(var Msg: TMessage);
begin
    if (Msg.Msg=WM_GETTEXT) or (Msg.Msg=EM_GETLINE)  then
    begin
        if bEnable then
        begin
            bEnable:=false;
            inherited;
        end;
    end
    else inherited;
end;

end.

基本上我們大家所看到的大部分需要輸入口令的軟件，如：QQ、Foxmail、CuteFTP和DameWare Mini Remote Control 等都沒有進行保護。