You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
48 lines
1.2 KiB
QBasic
48 lines
1.2 KiB
QBasic
Attribute VB_Name = "MVisiWinStudio"
|
|
Option Explicit
|
|
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
|
|
Public curFrm As Form
|
|
|
|
'Version 4.03.000
|
|
|
|
|
|
|
|
Public Sub EndProgram()
|
|
|
|
Dim frm As Form
|
|
|
|
FStart.Show
|
|
DoEvents
|
|
'Alle geladen Formulare bis auf das Startformular entladen
|
|
For Each frm In Forms
|
|
If Not frm Is FStart Then
|
|
Unload frm
|
|
DoEvents
|
|
End If
|
|
Next frm
|
|
'Im ProjectShutdownFinished-Ereignis des VWSApplication-Objektes im Startformular
|
|
'ist dann wirklich Schluss.
|
|
FStart.VWSStart1.ShutdownApplication
|
|
End Sub
|
|
|
|
|
|
Public Sub ShutDownWindows()
|
|
Dim frm As Form
|
|
|
|
'Alle geladen Formulare bis auf das Startformular entladen
|
|
For Each frm In Forms
|
|
If Not frm Is FStart Then
|
|
Unload frm
|
|
End If
|
|
Next frm
|
|
|
|
'Windows beenden über das VWStart-Objekt:
|
|
'Dadurch wird zuerst die Prozessdatenbank inkl. Treiberprogramme beendet.
|
|
FStart.VWSStart1.ShutDownWindows False, True
|
|
'1.Parameter: True=Windows neu starten.
|
|
' False=Windows beenden.
|
|
'2.Parameter: True=Force Shutdown=Windows beenden, auch wenn sich andere
|
|
' Programm weigern, zu beenden.
|
|
' False=normales Shutdown, andere Programm können das Shutdown verhindern.
|
|
End Sub
|