Force messagebox to the frontround

Question

У меня есть VBScript, который вызывает экземпляр Visual FoxPro и запускает программу VFP. Часть этой программы создает сообщение. Однако, если мой сценарий запускается из графического интерфейса Windows (а не из командной строки), тогда созданное окно сообщения не обязательно выйдет на передний план.

В VBScript У меня есть следующий код:

Set oVFP = CreateObject("VisualFoxPro.Application") 
oVFP.DoCmd("Messagebox('Hello World')") 
Set oVFP = Nothing 

Когда я запускаю этот скрипт из DOS строки, окно сообщения выскакивает на передний план. Когда я дважды нажимаю на сценарий в Проводнике, окно проводника может закрывать выпущенный почтовый ящик. Нет никаких указаний (например, никаких дополнительных кнопок на панели «Пуск»), чтобы окно сообщений скрывалось за окном «Проводник», ожидая действия пользователя.

Есть ли способ принудительно создать выпущенный почтовый ящик на переднем плане?

Answer 1

Добавить незадокументированное флаг 'модальной системы' в опции MessageBox:

Set oVFP = CreateObject("VisualFoxPro.Application") 
oVFP.DoCmd("Messagebox('Hello World', 4096)") 
Set oVFP = Nothing