(*//

标题:获取其他进程中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, , );

    for I :=  to vItemCount -  do begin

      SetLength(S, SendMessage(mHandle, LB_GETTEXTLEN, I, ));

      SendMessage(mHandle, LB_GETTEXT, I, Integer(@S[]));

      mStrings.Add(S);

    end;

    SetLength(S, );

  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, , );

    for I :=  to vItemCount -  do begin

      SetLength(S, SendMessage(mHandle, CB_GETLBTEXTLEN, I, ));

      SendMessage(mHandle, CB_GETLBTEXT, I, Integer(@S[]));

      mStrings.Add(S);

    end;

    SetLength(S, );

  finally

    mStrings.EndUpdate;

  end;

  Result := True;

end; { GetComboBoxText }

//Example

procedure TForm1.FormCreate(Sender: TObject);

begin

  RegisterHotKey(Handle, , MOD_WIN, VK_F2);

  RegisterHotKey(Handle, , MOD_WIN, VK_F3);

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

  UnRegisterHotKey(Handle, );

  UnRegisterHotKey(Handle, );

end;

procedure TForm1.WMHOTKEY(var Msg: TWMHOTKEY);

begin

  case Msg.HotKey of

    :

      GetListBoxText(

        WindowFromPoint(Point(Mouse.CursorPos.X, Mouse.CursorPos.Y)),

        MemoText.Lines);

    :

      GetComboBoxText(

        WindowFromPoint(Point(Mouse.CursorPos.X, Mouse.CursorPos.Y)),

        MemoText.Lines);

  end;

end;