Модальная форма

[Paul K.]

Вопрос:
Как сделать форму или всю программу полностью модальной по отношению к системе?

Спасибо.

[Juriev]

Option Explicit
'декларация функций и констант Win32API
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOACTIVATE = &H10
Private Const SWP_SHOWWINDOW = &H40

Private Sub Command1_Click() 'поверх всего
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

Private Sub Command2_Click() 'не поверх всего
SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

[A.A.Z.]

Это всегда верхняя, а не модальная!
А как сделать модальную, я не знаю.

[Paul K.]

Что всегда верхняя это точно - этот код я знаю.

Возможно, стоит перегрузить систему?

Короче говоря, мне нужно, чтобы никакие другие процессы кроме моей программы не выполнялись.

p.s. только в win 9x

[A.A.Z.]

Form1.Show vbModal делает форму модальной по отношению к Owner-форме, т.е. к форме, которая показала эту форму, а так как Owner-формы нет, то форма будет обычной. Кроме того, ее будет не видно в TaskBar.

[Paul K.]

Попробую сменить тему:
можно ли при старте системы запустить программу модально (например, как это делает сама windows ["Установка Windows"])?

[Tamahawk]

Esli ti sdelaesh svoyu zateyu v WinXP to Bill Gates