IEのウィンドウを検索をするには？ (ID:41139)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

こんにちは．
タイトルは，「IEのウィンドウ」となっていますが，コード中には「NN」がどうのこうの
という文章があります．また，

>IE6のウインドウを検索してそのウインドウに対して操作する（ヘルプのボタンを押す>>>等）ことはできるでしょうか？

意味がよく理解できませんので．解決方法ではありません．参考コードです．
(私のIE6にはヘルプボタンが見えないのです．間違って非表示にしたのかも知れません)
IEのウィンドウでしたら，以下の方法でも検索できます．

動作確認環境は，Windows XP(SP3) + Delphi 2010(UP5) Pro

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, SHDocVw, OleServer, Shell32_TLB;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Shell1: TShell;
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

//=============================================================================
//  現在起動中のIEのオブジェクトを取得して操作する簡単な例
//  ここで使用しているShell(TShell)を使用するには，[タイプライブラリの取り込み]
//  で[Microsoft Shell Controls And Automation]をコンポーネントにする
//  以下を参照
//  http://mrxray.on.coocan.jp/Delphi/CompoInstall/TypeLibraryD2009.htm
//=============================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
  IEObj     : InternetExplorer;
  IEHandle  : HWND;
  SHWindows : ShellWindows;
begin
  //IE関係オブジェクト
  SHWindows := Shell1.Windows as ShellWindows;

//最後に起動したIEを検出(SHWindows.Count - 1が最後を意味する)
  IEObj := SHWindows.Item(SHWindows.Count - 1) as InternetExplorer;
  if IEObj = nil then begin
    ShowMessage('IEは起動していません');
  end else begin
    //位置を変更してしまう
    IEObj.Top     := 0;
    IEObj.Left    := 0;
    //ツールバーとメニューバーを非表示にする
    //ただし，IEを一度閉じて，再度開くとまた表示されてしまう
    //IEそのものの基本設定を変更するものではないので注意
    IEObj.ToolBar := 0;
    IEObj.MenuBar := False;

//後の操作用にハンドルを取得しておく
    IEHandle := IEObj.HWnd;
    Self.Caption := IntToStr(IEHandle) + '  ' + IEObj.LocationName;
  end;
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る