ShellExecuteでIEを起動元フォームの上で起動するには？ (ID：31835)

名前

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

本文

めじなさん、
ご返答ありがとうございます。
サンプルソースを記述します。

動き的にはIEが立ち上がった後にdelphiのフォームが上に載る形になります。
当方もdelphi2007でWinXP Pro Sp3  です。

大変申し訳ございませんがよろしくお願いいたします。

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons,ShellAPI;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  HTMLPath:String;
begin
  HTMLPath:='http://maps.google.co.jp/maps?f=q&hl=ja&geocode=&q=東京都港区港南2-15-2&z=16';

ShellExecute( Handle
               ,'open'
               ,'iexplore'
               ,PChar(HTMLPath)
               ,''
               ,SW_RESTORE );

end;

end.

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

戻る