Как определить режим запуска Windows -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [3.23.63.252]

Дорогие друзья! Поздравляем вас с днём Победы!

Модераторы: SCINER, B.V.

Как определить режим запуска Windows

D[u]fa

Сообщ. #1 , 30.03.04, 16:58

Master

Рейтинг (т): 112

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Private Const SM_CLEANBOOT = 67

Private Sub Form_Load()

Select Case GetSystemMetrics(SM_CLEANBOOT)

Case 1: Me.Caption = "Safe Mode"

Case 2: Me.Caption = "Safe Mode with Network support."

Case Else: Me.Caption = "Windows is running normally."

End Select

End Sub

Сообщение отредактировано: Andrey_Kun - 07.04.04, 15:43

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0891 ] [ 16 queries used ] [ Generated: 10.05.24, 00:10 GMT ]