Visual FoxProを使ってInternet Explorerを表示する際に右上の×(終了ボタン)を非表示にする方法です。
IE 6.02 Versionで動作確認しております。IE7はわかりません。
VBSを使用した場合のソースも↓↓↓の方に貼り付けておきます。
*********************************************************
*
* IEでCLOSEボタン、不要なメニューを表示させない方法
*
* Visual FoxPro用のソースコード
*
*********************************************************
*!* IEのバグ？下のステートメントで何故かIEの×ボタンを殺せます。
*!* 普通に考えれば×が消える訳なさそうですが・・・？？？
*!* Windows XP Home/Proffesional 両方で確認済み
*!* IE = Ver 6.02
Local oIE AS InternetExplorer.application
oIE = Createobject("InternetExplorer.application")
* 赤字のステートメントが欠落していました。申し訳ありません。m(＿)m
oIE.GoHome && もしくは oIE.Navigate("URL")
oIE.MenuBar = .F.
oIE.TheaterMode = .T.
oIE.FullScreen = .F.
oIE.
Resizable = .F.
oIE.FullScreen = .T.
oIE.TheaterMode = .F.
**********全画面表示の場合の一例、実際の使用の際は変更してください
oIE.
Top = -2
oIE.
Left = -2
oIE.
Height = SYSMETRIC(2) + 4
oIE.
Width = SYSMETRIC(1) + 4
oIE.
Visible = .T.
oIE = ""
*!* ウインドウを閉じるには ALT + F4で閉じてください。
Return
VBScript用のソースコード(以下のコードをTEXTファイルにコピーして拡張子をVBSに変更して実行ください)
Dim oIE
Set oIE = Wscript.CreateObject("InternetExplorer.application")
oIE.GoHome ' もしくは oIE.Navigate "cURL"
oIE.MenuBar = False
oIE.TheaterMode = True
oIE.FullScreen = True
oIE.Resizable = False
oIE.FullScreen = True
oIE.TheaterMode = False
oIE.Visible = True
oIE = ""
' ウインドウを閉じるには ALT + F4で閉じてください。