我只想取字符,不是什么密码
解决方案 »
- ADOStoredProc调用存储过程后,如何获得存储过程Return的值
- 繁體亂碼問題
- 一个关于asp和delphi传递消息的紧急问题(100分,解决了马上给!)
- 做单机的人事管理程序,用什么数据库最方便?
- a component named QRStandardPreview has been exists.
- 100分进来看看:http://expert.csdn.net/Expert/topic/1210/1210436.xml?temp=.5548365
- 我截获了ctrl+c,可我还是希望复制成功,怎么办?在线等候
- fastreport 分页打印的问题
- Listbox控件在生成应用程序后,在第一列出现一个框子,很难看?怎么把它去除?
- asp到delphi的转变
- 创建新的DBGrid
- RAVE报表的教程和资料最好是中文的,哪有?
procedure TForm1.Button1Click(Sender: TObject);
var
Hwnd1: HWND;
pos1: TPoint;
s: PChar;
begin
GetMem(s, 200);
GetCursorPos(pos1);
Hwnd1 := WindowFromPoint(pos1);
if Hwnd1 <> 0 then
begin
GetWindowText(Hwnd1, s ,200);
ShowMessage(String(s));
end;
FreeMem(s);
end;