文本框中*号文本的查看

  • 主题发起人 主题发起人 import
  • 开始时间 开始时间
I

import

Unregistered / Unconfirmed
GUEST, unregistred user!
Var
mPoint:TPoint;
Ret:LongInt;
mText:PChar;
mID:Integer;
Buf:Integer;
DTWND:HWND;
begin
GetMem(mText,1024);
try
GetCursorPos(mPoint);
DTWND:=WindowFromPoint(mPoint);
Ret:=SendMessage(DTWND,WM_GETTEXTLENGTH,0,0);
Buf:=LongInt(mText);
SendMessage(DTWND,WM_GETTEXT,1024,Buf);
Edit1.Text:=StrPas(mText);
finally
FreeMem(mText,1024);
end;
end;
 
后退
顶部