Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Путь к папке с виндой Добавлено: 12.05.03 08:54  

Автор вопроса:  NightVolk | Web-сайт: dopesoft.narod.ru

Мне надо запустить программу из папки windows, но я не знаю путь к ней. Как мне его узнать. Я знаю, что можно через WinApi, и еще, кажется, что-то типа c:\%windows%\. Или нет?

Ответить

  Ответы Всего ответов: 3  

Номер ответа: 1
Автор ответа:
 boevik



Хранитель чата

ICQ: 137392264 

Вопросов: 8
Ответов: 557
  Web-сайт: www.hypertech.ru
 Профиль | | #1 		Добавлено: 12.05.03 09:07
Можно без API:
Environ("windir")

Ответить

Номер ответа: 2
Автор ответа:
 Morpheus



Вопросов: 224
Ответов: 3777
  Web-сайт: xury.zx6.ru
 Профиль | | #2 		Добавлено: 12.05.03 09:50

Конечно, environ лучший вариант, но если хочешь через АПИ то юзай GetWindowsDirectory

Ответить

Номер ответа: 3
Автор ответа:
 Alex&r



Вопросов: 10
Ответов: 105
  Профиль | | #3 Добавлено: 12.05.03 09:56

Через API это выглядит примерно так:

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA"  ;(ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Function WindowsDirectory() As String
    Dim strBuffer As String
    Dim lngLen As Long
    Dim dhcmaxpath As Long
    strBuffer = Space(dhcmaxpath)
    lngLen = dhcmaxpath
    lngLen = GetWindowsDirectory(strBuffer, lngLen)
    ' Если длина пути превышает dhcMaxPath, то lngLen

    ' содержит точный размер. Изменим размер буфера
    ' и повторим ещё раз.

    If lngLen > dhcmaxpath Then
        strBuffer = Space(lngLen)
        lngLen = GetWindowsDirectory(strBuffer, lngLen)
    End If
    WindowsDirectory = Left$(strBuffer, lngLen)
End Function

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам