科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道应用软件获取其他进程中ListBox和ComboBox的内容

获取其他进程中ListBox和ComboBox的内容

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

本文讲解获取其他进程中ListBox和ComboBox的内容

作者:Zswang 来源:Zswang 2007年9月15日

关键字: 进程 ListBox ComboBox 软件

  • 评论
  • 分享微博
  • 分享邮件

(*//

标题:获取其他进程中ListBox和ComboBox的内容

说明:Window2000+Delphi6调试通过

//*)

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 }

//Example

procedure 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;

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章