发信人: 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]
|
|