新帖

怎样获取其它进程中ListBox（多列）各Item的内容(50分)

主题发起人 win32asm
开始时间 2004-04-16

W

win32asm

Unregistered / Unconfirmed

GUEST, unregistred user!

2004-04-16

#1

发LB_GETTEXT消息可获取单列ListBox中的类容。<br>怎样得到多列ListBox中各Item的内容呢!发LB_GETITEMDATA消息？？具体如何实现？

H

Highpeak

Unregistered / Unconfirmed

GUEST, unregistred user!

2004-04-16

#2

http://www.delphibbs.com/keylife/iblog_show.asp?xid=6393

W

win32asm

Unregistered / Unconfirmed

GUEST, unregistred user!

2004-04-16

#3

这种方法对于多列ListBox好像行不通

J

jlutt-sadan

Unregistered / Unconfirmed

GUEST, unregistred user!

2004-04-16

#4

如果你说的多列是用listview来实现的话，可以看看这篇文章<br>获取其他进程中ListView的文本<br>http://www.csdn.net/develop/Read_Article.asp?id=26046<br><br>另外<br>获取其他程序中TreeView的内容<br>http://www.csdn.net/develop/Read_Article.asp?id=26109<br><br>获取其他进程中ListBox和ComboBox的内容<br>http://www.csdn.net/develop/Read_Article.asp?id=26111

北

北京男人

Unregistered / Unconfirmed

GUEST, unregistred user!

2004-04-16

#5

unit Unit1;<br><br>interface<br><br>uses<br>  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<br>  StdCtrls;<br><br>type<br>  TForm1 = class(TForm)<br>    GroupBox1: TGroupBox;<br>    Button3: TButton;<br>    Button4: TButton;<br>    GroupBox2: TGroupBox;<br>    Button1: TButton;<br>    Memo1: TMemo;<br>    Edit1: TEdit;<br>    Label1: TLabel;<br>    GroupBox3: TGroupBox;<br>    Button2: TButton;<br>    Edit2: TEdit;<br>    Label2: TLabel;<br>    Label3: TLabel;<br>    Edit3: TEdit;<br>    Memo2: TMemo;<br>    procedure Button1Click(Sender: TObject);<br>    procedure Button2Click(Sender: TObject);<br>    procedure Button3Click(Sender: TObject);<br>    procedure Button4Click(Sender: TObject);<br>  private<br>    { Private declarations }<br>  public<br>    { Public declarations }<br>  end;<br><br>var<br>  Form1: TForm1;<br><br>implementation<br><br>{$R *.DFM}<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>var s: array [0..4095] of char;<br>  i: integer;<br>  iItemCount: integer;<br>begin<br>  try<br>    StrToInt(trim(Edit1.text));<br>  except<br>    MessageDlg('请输入一个$开头的16进制整数ComboBox代号！',mtError, [mbOK], 0);<br>    Exit;<br>  end;<br>  //Get comboBox items count<br>  iItemCount:= sendMessage(StrToInt(trim(Edit1.text)),CB_GETCOUNT,0,0);<br><br>  //Add it to memo1.<br>  memo1.Lines.clear;<br>  for i := 0 to iItemCount - 1 do<br>  begin<br>    sendMessage(StrToInt(trim(Edit1.text)),CB_GETLBTEXT,i,LongInt(@s));<br>    memo1.Lines.Add(s);<br>  end;<br>end;<br><br>procedure TForm1.Button2Click(Sender: TObject);<br>var s: array [0..4095] of char;<br>  i: integer;<br>begin<br>  try<br>    StrToInt(trim(Edit2.text));<br>  except<br>    MessageDlg('请输入一个$开头的16进制整数ComboBox代号！',mtError, [mbOK], 0);<br>    Exit;<br>  end;<br>  <br>  //Insert a string into combobox item.<br>  StrPCopy(s,Edit3.text);<br>  sendMessage(StrToInt(trim(edit2.text)),CB_INSERTSTRING,1,LongInt(@s));<br>end;<br><br>procedure TForm1.Button3Click(Sender: TObject);<br>begin<br>  //借用其它程序的combobox<br>  windows.SetParent($00100196,Self.Handle);<br>  //SetVisible。。。<br>  ShowWindow($00100196,SW_SHOWNORMAL);<br>end;<br><br>procedure TForm1.Button4Click(Sender: TObject);<br>begin<br>  //还给其它程序的combobox<br>  windows.SetParent($00100196,$0001000c);<br>end;<br><br>end.<br>-------------------------------------dfm-----------------------------<br>object GroupBox1: TGroupBox<br>  Left = 376<br>  Top = 16<br>  Width = 225<br>  Height = 121<br>  Caption = #20599#21035#20154#31243#24207#30340#25511#20214#29992<br>  TabOrder = 0<br>  object Button3: TButton<br>    Left = 16<br>    Top = 32<br>    Width = 145<br>    Height = 25<br>    Caption = #20511#29992#20854#23427#31243#24207'ComboBox'<br>    TabOrder = 0<br>    OnClick = Button3Click<br>  end<br>  object Button4: TButton<br>    Left = 18<br>    Top = 74<br>    Width = 123<br>    Height = 25<br>    Caption = #36824#20854#23427#31243#24207'ComboBox'<br>    TabOrder = 1<br>    OnClick = Button4Click<br>  end<br>end<br>object GroupBox2: TGroupBox<br>  Left = 24<br>  Top = 8<br>  Width = 337<br>  Height = 329<br>  Caption = #24471#21040#20854#23427#31243#24207' ComboBox '#20869#23481<br>  TabOrder = 1<br>  object Label1: TLabel<br>    Left = 16<br>    Top = 24<br>    Width = 90<br>    Height = 12<br>    Caption = 'ComboBox'#31383#21475'ID:'<br>  end<br>  object Button1: TButton<br>    Left = 232<br>    Top = 16<br>    Width = 75<br>    Height = 25<br>    Caption = #21015#20986#20869#23481<br>    TabOrder = 0<br>    OnClick = Button1Click<br>  end<br>  object Memo1: TMemo<br>    Left = 16<br>    Top = 48<br>    Width = 289<br>    Height = 273<br>    TabOrder = 1<br>  end<br>  object Edit1: TEdit<br>    Left = 112<br>    Top = 16<br>    Width = 97<br>    Height = 20<br>    TabOrder = 2<br>  end<br>end<br>object GroupBox3: TGroupBox<br>  Left = 24<br>  Top = 344<br>  Width = 337<br>  Height = 105<br>  Caption = #32473#20854#23427#31243#24207'ComboBox '#25554#20837#20854#23427#20869#23481<br>  TabOrder = 2<br>  object Label2: TLabel<br>    Left = 96<br>    Top = 21<br>    Width = 90<br>    Height = 12<br>    Caption = 'ComboBox'#31383#21475'ID:'<br>  end<br>  object Label3: TLabel<br>    Left = 96<br>    Top = 61<br>    Width = 36<br>    Height = 12<br>    Caption = #20869#23481#65306<br>  end<br>  object Button2: TButton<br>    Left = 8<br>    Top = 16<br>    Width = 75<br>    Height = 25<br>    Caption = #25554#20837<br>    TabOrder = 0<br>    OnClick = Button2Click<br>  end<br>  object Edit2: TEdit<br>    Left = 198<br>    Top = 53<br>    Width = 121<br>    Height = 20<br>    TabOrder = 1<br>  end<br>  object Edit3: TEdit<br>    Left = 200<br>    Top = 13<br>    Width = 113<br>    Height = 20<br>    TabOrder = 2<br>  end<br>end<br>object Memo2: TMemo<br>  Left = 376<br>  Top = 152<br>  Width = 233<br>  Height = 297<br>  Lines.Strings = (<br>    '  '#27880#24847#65306<br>    '  '#35201#37197#21512'WS32.exe '#20351#29992#12290<br>    '  '#25214#21040#25511#20214#31383#21475'ID'#26159#20851#38190#65292#26597#25214#26041#27861#20026#65306<br>    ''<br>    '  '#29616#20851#38381'WS32.exe'#20197#22806#25152#26377#31243#24207#12290<br>    '  1'#12289#36873#20013'WS32.exe/Options/Controls '<br>    '  2'#12289#36873#20013'Messages/Process/New Process'<br>    ''<br>    '  '#25171#24320'"'#20854#23427#31243#24207'".'#38543#20415#19979#25289#19968#20010'ComboBox'<br>    #65292#30475<br>    'WS32.exe '#21738#37324#38378#21160#65292#38378#21160#30340#37027#20010#26641#26525#30340'ID'<br>    #23601#26159#26412'ComboBox'#30340'ID'#12290)<br>  TabOrder = 3<br>end<br>

北

北京男人

Unregistered / Unconfirmed

GUEST, unregistred user!

2004-04-16

#6

文本的dfm应该是这样：<br>－－－－－－－－－－－－－－－－－－<br>object Form1: TForm1<br>  Left = 192<br>  Top = 133<br>  Width = 623<br>  Height = 480<br>  Caption = 'Form1'<br>  Color = clBtnFace<br>  Font.Charset = GB2312_CHARSET<br>  Font.Color = clWindowText<br>  Font.Height = -12<br>  Font.Name = '宋体'<br>  Font.Style = []<br>  OldCreateOrder = False<br>  PixelsPerInch = 96<br>  TextHeight = 12<br>  object GroupBox1: TGroupBox<br>    Left = 376<br>    Top = 16<br>    Width = 225<br>    Height = 121<br>    Caption = '偷别人程序的控件用'<br>    TabOrder = 0<br>    object Button3: TButton<br>      Left = 16<br>      Top = 32<br>      Width = 145<br>      Height = 25<br>      Caption = '借用其它程序ComboBox'<br>      TabOrder = 0<br>      OnClick = Button3Click<br>    end<br>    object Button4: TButton<br>      Left = 18<br>      Top = 74<br>      Width = 123<br>      Height = 25<br>      Caption = '还其它程序ComboBox'<br>      TabOrder = 1<br>      OnClick = Button4Click<br>    end<br>  end<br>  object GroupBox2: TGroupBox<br>    Left = 24<br>    Top = 8<br>    Width = 337<br>    Height = 329<br>    Caption = '得到其它程序 ComboBox 内容'<br>    TabOrder = 1<br>    object Label1: TLabel<br>      Left = 16<br>      Top = 24<br>      Width = 90<br>      Height = 12<br>      Caption = 'ComboBox窗口ID:'<br>    end<br>    object Button1: TButton<br>      Left = 232<br>      Top = 16<br>      Width = 75<br>      Height = 25<br>      Caption = '列出内容'<br>      TabOrder = 0<br>      OnClick = Button1Click<br>    end<br>    object Memo1: TMemo<br>      Left = 16<br>      Top = 48<br>      Width = 289<br>      Height = 273<br>      TabOrder = 1<br>    end<br>    object Edit1: TEdit<br>      Left = 112<br>      Top = 16<br>      Width = 97<br>      Height = 20<br>      TabOrder = 2<br>    end<br>  end<br>  object GroupBox3: TGroupBox<br>    Left = 24<br>    Top = 344<br>    Width = 337<br>    Height = 105<br>    Caption = '给其它程序ComboBox 插入其它内容'<br>    TabOrder = 2<br>    object Label2: TLabel<br>      Left = 96<br>      Top = 21<br>      Width = 90<br>      Height = 12<br>      Caption = 'ComboBox窗口ID:'<br>    end<br>    object Label3: TLabel<br>      Left = 96<br>      Top = 61<br>      Width = 36<br>      Height = 12<br>      Caption = '内容：'<br>    end<br>    object Button2: TButton<br>      Left = 8<br>      Top = 16<br>      Width = 75<br>      Height = 25<br>      Caption = '插入'<br>      TabOrder = 0<br>      OnClick = Button2Click<br>    end<br>    object Edit2: TEdit<br>      Left = 198<br>      Top = 53<br>      Width = 121<br>      Height = 20<br>      TabOrder = 1<br>    end<br>    object Edit3: TEdit<br>      Left = 200<br>      Top = 13<br>      Width = 113<br>      Height = 20<br>      TabOrder = 2<br>    end<br>  end<br>  object Memo2: TMemo<br>    Left = 376<br>    Top = 152<br>    Width = 233<br>    Height = 297<br>    Lines.Strings = (<br>      '  注意：'<br>      '  要配合WS32.exe 使用。'<br>      '  找到控件窗口ID是关键，查找方法为：'<br>      ''<br>      '  现关闭WS32.exe以外所有程序。'<br>      '  1、选中WS32.exe/Options/Controls '<br>      '  2、选中Messages/Process/New Process'<br>      ''<br>      '  打开"其它程序".随便下拉一个ComboBox'<br>      '，看'<br>      'WS32.exe 哪里闪动，闪动的那个树枝的ID'<br>      '就是本ComboBox的ID。')<br>    TabOrder = 3<br>  end<br>end

W

win32asm

Unregistered / Unconfirmed

GUEST, unregistred user!

2004-04-16

#7

to jlutt-sadan<br>这个多列ListBox不是用listview实现的。我知道发LB_GETTEXT消息可取得普通ListBox中的内容，但是就是无法取得多列ListBox中的内容

W

win32asm

Unregistered / Unconfirmed

GUEST, unregistred user!

2004-04-18

#8

唉，难道真的这么难吗？

您必须登录或注册才可回复。

Similar threads

S

[教程]DBGridEh 中获取当前鼠标位置的记录内容

回复: 0

查看: 579

2022-08-14

swish

S

S

[转]ClientDataSet加上TDataSetProvider的数据保存问题

SUNSTONE的Delphi笔记
2018-03-22
Feeds

回复: 0

查看: 3K

2018-03-22

SUNSTONE的Delphi笔记

S

S

[转]ClientDataSet加上TDataSetProvider的数据保存问题

SUNSTONE的Delphi笔记
2018-03-13
Feeds

回复: 0

查看: 2K

2018-03-13

SUNSTONE的Delphi笔记

S

S

[原]Delphi2010中DataSnap高级技术(6)—加强服务程序对访问者的控制能力

SUNSTONE的Delphi笔记
2018-03-22
Feeds

回复: 0

查看: 1K

2018-03-22

SUNSTONE的Delphi笔记

S

S

[原]Delphi2010中DataSnap高级技术(6)—加强服务程序对访问者的控制能力

SUNSTONE的Delphi笔记
2018-03-13
Feeds

回复: 0

查看: 1K

2018-03-13

SUNSTONE的Delphi笔记

S

顶部