获取其他进程中ListBox和ComboBox的内容
来源:互联网 发布:java 数据级权限控制 编辑:程序博客网 时间:2024/05/01 03:46
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
(*//标题:获取其他进程中ListBox和ComboBox的内容说明:Window2000+Delphi6调试通过设计:Zswang支持:wjhu111@21cn.com日期:2004-03-25//*)
function GetListBoxText(mHandle: THandle; mStrings: TStrings): Boolean;var vItemCount: Integer; I: Integer; S: string;begin Result := False; if not Assigned(mStrings) then Exit; mStrings.BeginUpdate; try mStrings.Clear; vItemCount := SendMessage(mHandle, LB_GETCOUNT, 0, 0); for I := 0 to vItemCount - 1 do begin SetLength(S, SendMessage(mHandle, LB_GETTEXTLEN, I, 0)); SendMessage(mHandle, LB_GETTEXT, I, Integer(@S[1])); mStrings.Add(S); end; SetLength(S, 0); finally mStrings.EndUpdate; end; Result := True;end; { GetListBoxText }
function GetComboBoxText(mHandle: THandle; mStrings: TStrings): Boolean;var vItemCount: Integer; I: Integer; S: string;begin Result := False; if not Assigned(mStrings) then Exit; mStrings.BeginUpdate; try mStrings.Clear; vItemCount := SendMessage(mHandle, CB_GETCOUNT, 0, 0); for I := 0 to vItemCount - 1 do begin SetLength(S, SendMessage(mHandle, CB_GETLBTEXTLEN, I, 0)); SendMessage(mHandle, CB_GETLBTEXT, I, Integer(@S[1])); mStrings.Add(S); end; SetLength(S, 0); finally mStrings.EndUpdate; end; Result := True;end; { GetComboBoxText }
//Exampleprocedure TForm1.FormCreate(Sender: TObject);begin RegisterHotKey(Handle, 1, MOD_WIN, VK_F2); RegisterHotKey(Handle, 2, MOD_WIN, VK_F3);end;
procedure TForm1.FormDestroy(Sender: TObject);begin UnRegisterHotKey(Handle, 1); UnRegisterHotKey(Handle, 2);end;
procedure TForm1.WMHOTKEY(var Msg: TWMHOTKEY);begin case Msg.HotKey of 1: GetListBoxText( WindowFromPoint(Point(Mouse.CursorPos.X, Mouse.CursorPos.Y)), MemoText.Lines); 2: GetComboBoxText( WindowFromPoint(Point(Mouse.CursorPos.X, Mouse.CursorPos.Y)), MemoText.Lines); end;end;
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script><script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
- 获取其他进程中ListBox和ComboBox的内容
- 获取其他进程中ListBox和ComboBox的内容
- wpf ListBox获取选中内容 ComboBox
- 获取其他进程中“Internet Explorer_TridentCmboBx”的内容
- 获取其他进程listctrl的内容
- VC++ 取得 其他app的ListBox 内容
- 怎么来获取其他进程中DBGrid的文本内容啊
- ComboBox ListBox 中查找
- 获取其他程序中TreeView的内容
- 获取其他程序中TreeView的内容
- ListBox 和 ComboBox 控件
- 获取其他进程中ListView的文本
- 获取其他进程中StatusBar的文本
- mfc中,COMBOBOX如何获取输入的文本内容
- VC获取其他进程ListCtrl内容
- VC获取其他进程ListCtrl内容
- VC获取其他进程ListCtrl内容
- VC获取其他进程ListCtrl内容
- 获取其他程序中TreeView的内容
- 丫头报志愿相关3
- 中国历史上十大无名英雄
- MYSQL的初级使用
- 如何查看数据库每个表占用的磁盘空间
- 获取其他进程中ListBox和ComboBox的内容
- 导入导出方法与工具
- 通用查询组件设计(续二)
- (四)我的毕业设计之好友私聊篇
- Decorator设计模式 C#
- 丢了root密码怎么办?
- Decorator设计模式 Java
- 使用ACTIVEX和DELPHI开发串口通讯
- RAID磁盘阵列数据恢复指南