Системные файлы

[DKbelRoma]

Пишу программу и немогу найти файлы, которые касаются работы системы. Я имею ввиду - выключить, перезагрузить и т.д.
Я помню только фаил logoff.exe, а другие из головы повылетали.
Помогите пожалуйста вспомнить остальные.

[alibek]

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

[AntonGV]

Думаю, можно в этой теме задать и мой вопрос

У меня почему-то файлы экранных заставок (.scr) стали ассоциированы с программой Dependency Walker, и теперь заставки ни как нельзя установить. Как можно восстановить стандартные ассоциации для файлов .scr ?

[alibek]

Потому что ты выбрал команду "Открыть с помощью" и не отключил флажок "Всегда использовать эту программу".
Зачем восстанавливать? При выборе заставки ты просто выбираешь ее из списка, главное, чтобы этот файл был в каталоге Windows.

[Денис]

AntonGV
открой в любом окне explorer: "Сервис"-"Свойства папки"-"типы файлов", дождись, пока заполнится список, найди в списке расширение scr и нажми на нем кнопку "Восстановить"

з.ы. апплет "Свойства папки" также доступен из панели управления.

[Watts[]n!]

alibek
Почему каша? Да, такие файлы существуют (их 3, по-моему).

DKbelRoma
Через Shell запускать будешь?
Просто я такую программу писал, когда только осваивал VB6.

[DKbelRoma]

Watts[]n! да, вобщето собрался через Shell. Так подскажешь?
И помоему таких файлов больше трёх.

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

Хватит обижать . Уже противно читать. Вроде у вас, когда вы начинали, таких вопросов небыло?

[Watts[]n!]

DKbelRoma
Да, можно и так. Только вот имена файлов не помню.
Лучше через Api - всего несколько строчек.

[Antonariy]

Хватит обижать . Уже противно читать. Вроде у вас, когда вы начинали, таких вопросов небыло?

Если чего-то не знаешь, просто спроси. Не выдвигай собственные предположения и домыслы, которые у знающих людей вызывают лишь неконтролируемое сползание под стул.

[Lumen]

Когда начинали разумеется подобные (хотя и не такие) были, но я например старался сам узнать из статей ответы, а не задавать на форуме программистов подобные вопросы. Сорри ща после репетиции нового года, если вдруг кого-то обидел...

[ANDLL]

Да не ну вы озверели. Antonariy, сползая под стул копчик не ушиби.
Если ктото выдвигает предположение - значит думает. А думать полезно. Очень

[DKbelRoma]

ANDLL-согласен.
Так как мне файлы то узнать? Проклацать все файлы в папке system32 ??? Я со скуки умру.

[Денис]

DKbelRoma
shutdown.exe с параметрами. параметром /? как обычно печатается справка по параметрам. есесно все делай в командной строке (cmd.exe) удачи

[Antonariy]

ANDLL
Я просто объяснил человеку, как избежать ситуаций, в которых он может быть высмеян, раз уж ему это неприятно. Лично мне пох. Я сам готов посмеяться над своей тупостью.

А думать конечно полезно и нужно, но вслух - не всегда...

Есть еще более глубинный, философский смысл того совета, но это уже совсем оффтоп.

[Saturn.65]

Пишу программу и немогу найти файлы, которые касаются работы системы. Я имею ввиду - выключить, перезагрузить и т.д.
Я помню только фаил logoff.exe, а другие из головы повылетали.
Помогите пожалуйста вспомнить остальные.

А если воспользоваться кодом, который и перезагрузит и выключит?
Тебе код надо или ты сам хочешь дойти до всего?

[DKbelRoma]

Saturn.65 - ваще хочется самому дойти.ПРосто хотел узнать название файлов, а потом в программе их через Shell открыть и указать путь например "%SystemRoot%\system32\название файла.exe". Я же правильно думаю???

[Antonariy]

Не очень Названия файлов и так никто не скрывает, а их описания можно найти в яндексе. И не только в яндексе.

[Saturn.65]

Saturn.65 - ваще хочется самому дойти.ПРосто хотел узнать название файлов, а потом в программе их через Shell открыть и указать путь например "%SystemRoot%\system32\название файла.exe". Я же правильно думаю???

Вот тебе описания файлов виндовс. Может чего интересного найдешь.
А выключить комп командой Shell "Выключить_комп.exe" нельзя.
Нужна специальная функция и т.д. Своим умом не дойдешь.

Код: Выделить всё

Как выключить или перезагрузить компьютер, как завершить сеанс пользователя
В Windows 98,95 всё делается очень просто: вызывается WinAPI функция ExitWindowsEx и больше ничего. А вот в Windows XP перед её вызовом процессу нужно получить специальную привилегию, иначе вызов функции завершается неудачей. Это касается перезагрузки и выключения, для завершения только сеанса никаких привилегий не требуется.
' Form
' - - - - - -
' Command1 – кнопка
' Command2 – кнопка
' Command3 – кнопка
' Command4 – кнопка
' - - - - - -
' Код формы

Private Const ANYSIZE_ARRAY = 1
Private Type LUID
  LowPart As Long
  HighPart As Long
End Type
Private Type LUID_AND_ATTRIBUTES
  pLuid As LUID
  Attributes As Long
End Type
Private Type TOKEN_PRIVILEGES
  PrivilegeCount As Long
  Privileges(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTES
End Type
' Reboot system code
Private Enum eParam
  EWX_LOGOFF = 0
  EWX_SHUTDOWN = 1
  EWX_REBOOT = 2
  EWX_FORCE = 4
End Enum
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Declare Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As Long, ByVal DesiredAccess As Long, TokenHandle As Long) As Long
Private Declare Function LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, lpLuid As LUID) As Long
Private Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal TokenHandle As Long, ByVal DisableAllPrivileges As Long, NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long, PreviousState As TOKEN_PRIVILEGES, ReturnLength As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long


Private Function ShutdownEx(ByVal fParam As eParam) As Boolean
  Dim Ret As Long
  Dim hToken As Long
  Dim Tkp As TOKEN_PRIVILEGES
  Dim TkpOld As TOKEN_PRIVILEGES
  Dim aOkReboot As Boolean
  Const SE_SHUTDOWN_NAME = "SeShutdownPrivilege"

' Для перезагрузки и выключения в Windows XP требуется
' установка процессу привилегии "SeShutdownPrivilege",
' иначе попытка выполнения этих действий завершится не удачей.
' В Win 98 установка привилегии не требуется.

  If ((fParam And EWX_SHUTDOWN) = EWX_SHUTDOWN) Or ((fParam And EWX_REBOOT) = EWX_REBOOT) Then
    If OpenProcessToken(GetCurrentProcess(), 32 Or 8, hToken) Then
      Ret = LookupPrivilegeValue(vbNullString, SE_SHUTDOWN_NAME, Tkp.Privileges(0).pLuid)
      Tkp.PrivilegeCount = 1
      Tkp.Privileges(0).Attributes = 2
      aOkReboot = AdjustTokenPrivileges(hToken, 0, Tkp, LenB(TkpOld), TkpOld, Ret)
    End If
  End If

  ShutdownEx = (ExitWindowsEx(fParam, 0) <> 0)
End Function

Private Sub Command1_Click()
  ShutdownEx EWX_LOGOFF
End Sub

Private Sub Command2_Click()
  ShutdownEx EWX_SHUTDOWN
End Sub

Private Sub Command3_Click()
  ShutdownEx EWX_REBOOT
End Sub

Private Sub Command4_Click()
' Флаг EWX_FORCE для более "жёсткого" завершения
' работающих программ. Если флаг EWX_FORCE не используется,
' то программы, требующие сохранения ваших работ в них,
' выдают сообщения "Сохранить, не сохранить, отмена", и
' если кликнуть "отмена", то такая программа вполне может
' остановить завершение сеанса (выключение, перезагрузку),
' а если вас не устраивает такое обстоятельство и Вы хотите
' потерять все не сохранённые данные, то можете передавать
' и флаг EWX_FORCE.

' Примеры:

' ShutdownEx EWX_LOGOFF or EWX_FORCE
' ShutdownEx EWX_SHUTDOWN or EWX_FORCE
' ShutdownEx EWX_REBOOT or EWX_FORCE
End Sub

Private Sub Form_Load()
  Command1.Caption = "Завершение сеанса"
  Command2.Caption = "Выключение компьютера"
  Command3.Caption = "Перезагрузка компьютера"
  Command4.Caption = "Флаг EWX_LOGOFF"
End Sub


Есть попроще:

Код: Выделить всё

Dim strComputer As String
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate, _
(Shutdown)}!\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery( _
"Select * from Win32_OperatingSystem")
For Each ObjOperatingSystem In colOperatingSystems
   ObjOperatingSystem.Reboot ' Для перезагрузки
Next


и…

Dim strComputer As String

strComputer = "."

Set objWMIService = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate,(Shutdown)}!\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery( _
"Select * from Win32_OperatingSystem")
For Each ObjOperatingSystem In colOperatingSystems
ObjOperatingSystem.ShutDown 'Для выключения
Next


[DKbelRoma]

Saturn.65 мдя... Спасибо
Если честно, то я думал всё на мно-о-о-ого проще. В коде столько неизвестных мне команд, что глаза на лоб лезут

[Saturn.65]

В коде столько неизвестных мне команд, что глаза на лоб лезут

Не можешь себе представить, но некоторые его в голове держат.
Второй код попроще будет.
Ты не расстраивайся. А то бросишь VB. Это только для перезагрузки и выключения. А так :

Код: Выделить всё

Private Sub Command1_Click()
    Shell "rundll32.exe url.dll,FileProtocolHandler regedit.exe"
End Sub


[Watts[]n!]

А выключить комп командой Shell "Выключить_комп.exe" нельзя.

Я выключал. Причем одним из файлов, которые ищет DKbelRoma.
А зачем код для запуска RegEdit?[/url]

[Saturn.65]

А выключить комп командой Shell "Выключить_комп.exe" нельзя.

Я выключал. Причем одним из файлов, которые ищет DKbelRoma.
А зачем код для запуска RegEdit?[/url]

Выключать я не пробовал. Надо попробовать. А зачем великие умы тогда такой большой код создали? Может это связано с завершением разных процессов? А то если сразу выключить, может что-то не сохранится? RegEdit -это пример просто.

[DKbelRoma]

Saturn.65 скорее всего это из-за процесов. Ты прав.
з.ы. А VB я всёравно не брошу, это самый кульный язык программирования.