发信人: netcharm()
整理人: teleme(2000-12-06 19:00:14), 站内信件
|
看到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]
|
|