精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>Windows API函数>>文本框中*号文本的查看:)

主题:文本框中*号文本的查看:)
发信人: netcharm()
整理人: kingron(2000-12-05 19:36:19), 站内信件
看到VB版的*号获取程序,手痒把以前写的小程序拿出来献献丑:)

看俺的Pascal源码:
以下函数就是关键.
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);
    EditPass.Text:=StrPas(mText);
  finally
    FreeMem(mText,1024);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  //此处设置无任务栏窗口标题条.
  SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
end;


--
    读万卷书  行万里路  乘万里风 破万里浪
-============================================-
          博览群书:)
个人主页:http://done.163.net
镜像站点:http://member.netease.com/~top

※ 修改:.netcharm 于 Apr 19 11:11:59 修改本文.[FROM: 202.102.66.31]
※ 来源:.月光软件站 http://www.moon-soft.com.[FROM: 202.102.66.31]

[关闭][返回]