как выполнить msconfig

[dorido]

как выполнить msconfig
напишите код

[xolod]

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


Shell "C:\WINDOWS\PCHealth\HelpCtr\Binaries\msconfig.exe"


[kirrun]

Да просто

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

shell "msconfig.exe"

Зачем писать длиннее если можно написать короче?

[xolod]

2 kirrun
Потому что твой код работать не будет.

[kirrun]

хм.. странно.. и правда не работает...
А почему?

[GM]

хм.. странно.. и правда не работает...
А почему?

Потому что "C:\WINDOWS\PCHealth\HelpCtr\Binaries\" ,не является PATH папкой. А то что вы вводете в Пуск->Выполнить msconfig, то винда имеет дополнительную секцию(HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths) где запоминает путь к ехе-шнику.

[kirrun]

о.. ясно... учтем-сс..

[Alexander N. Samarin]

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


Dim WinPath as String

WinPath = EnVar$("windir")

If WinPath = "" then
    WinPath = IIf(Dir$("C:\Windows", vbDirectory) = "", "C:\Windows", "")
End If

If WinPath = "" then
    WinPath = IIf(Dir$("C:\Winnt", vbDirectory) = "", "C:\Windows", "")
End If

If WinPath <> "" then
    Shell WinPath & "\msconfig.exe"
End If


Примерно так.

[alibek]

Что за глупость?
API GetWindowsDirectory

[alibek]

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

Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
...
Dim ret As Long, L As Long, P As String
L = 255
P = String$(L, 0)
ret = GetWindowsDirectory(P, L)
If ret > L Then
  L = ret
  P = String$(L, 0)
  ret = GetWindowsDirectory(P, L)
End If
If ret = 0 Then
  MsgBox "ERROR!"
Else
  P = Left$(P, ret)
End If


[Alexander N. Samarin]

Что за глупость?
API GetWindowsDirectory

Обижаешь!

В БЕЙСИКе есть одна ОЧЕНЬ полезная, но многими забытая функция Environ! Она возвращает имена и содержание всех переменных среды операционной системы!!! Так, например, чтобы получить директорию Windows, совсем не надо прибегать к API-функции GetWindowsDirectory!!!!!! А получить её можно так:
ABC = Environ ("windir")
И ВСЁ!
Но и это ещё не всё! Также можно получить следующие переменные:
ABC = Environ ("TMP") 'директория временных файлов TEMP
ABC = Environ ("BLASTER") 'координаты звуковой карты
ABC = Environ ("PATH") 'пути, объявленные в autoexec.bat
НО И ЭТО ВСЁ ЕЩЁ НЕ ВСЁ!!!!
Чтобы получить имя и значение переменной, в скобках вместо строки надо поставить номер переменной (или индекс?).
Вставьте следуюшую процедуру в окно Code, запустите проект, кликните на форме увидите список всех переменных и их значений!
Private Sub Form_Click()
'берём переменную и присваиваем ей единицу
m = 1
'запускаем цикл, который увеличивает переменную m каждый
'раз на единицу и подсовывает её функции Environ
Do
'присваеваем перменной EnvString возвращаемую переменную,
'соответсвующую номеру m
EnvString = Environ(m)
'печатаем переменную, соответствующую номеру m
Print Environ(m)
'переменную m увеличиваем на один
m = m + 1
'если переменная EnvString всё ещё не пустая - крутим дальше...
Loop Until EnvString = ""
End Sub
И теперь все, кто недолюбливает API-функции (по-моему их вообще мало, кто долюбливает ) могут пользоваться только этой строчкой!

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

Dim WinPath as String

WinPath = EnVirion("windir")

If WinPath = "" then
    WinPath = IIf(Dir$("C:\Windows", vbDirectory) = "", "C:\Windows", "")
End If

If WinPath = "" then
    WinPath = IIf(Dir$("C:\Winnt", vbDirectory) = "", "C:\Windows", "")
End If

If WinPath <> "" then
    Shell WinPath & "\msconfig.exe"
End If

(Наврал с Environ - было EnVar$)

[alibek]

А ты знаешь, что Environ$() берет значения с переменных окружения? И что в общем случае, там совсем не обязательно будет переменная windir? В Windows 3.x ее точно нет, в Windows 95 вроде бы тоже. А во всех остальных Windows ее можно удалить.

[alibek]

И наконец, что даст твой код на моей машине? Я люблю ставить Windows XP в папку WINXP (и необязательно на диске C:)

[Alexander N. Samarin]

И наконец, что даст твой код на моей машине?

Я не утверждаю, что мой код правилен всегда и везде, и что это - единственное решение вопроса

Я люблю ставить Windows XP в папку WINXP (и необязательно на диске C:)

А проверить?
Можно использовать и GetWindowsDirectory и Environ параллельно

И что в общем случае, там совсем не обязательно будет переменная windir?

Значит можно рассматривать разные случаи

[kirrun]

И наконец, что даст твой код на моей машине? Я люблю ставить Windows XP в папку WINXP (и необязательно на диске C:)

Как я понимаю, переменная windir содержит ИМЕННО ТОТ путь, куда У ТЕБЯ установлен мастдай.

[alibek]

Как я понимаю, переменная windir содержит ИМЕННО ТОТ путь, куда У ТЕБЯ установлен мастдай.

Не обязательно. См. выше.

[kirrun]

Как я понимаю, переменная windir содержит ИМЕННО ТОТ путь, куда У ТЕБЯ установлен мастдай.

Не обязательно. См. выше.

А ты проверил?