Автор
|
Тема: Каталог винды
|
Sys |
опубликован 09-02-2002 20:25 MSK
writeINI "C:\Windows\Win.ini", "windows", "run", App.Path & App.EXEName & ".exe" Что лучше мне вместо "C:\Windows\Win.ini" использовать ...Мне нужно определить каталог где висит винда...т.е. что то прога сама искала каталог
|
7in
|
опубликован 09-02-2002 23:42 MSK
Environ("windir") |
AlexR
|
опубликован 10-02-2002 11:32 MSK
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias _ "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Private Declare Function GetSystemDirectory Lib "kernel32" Alias _ "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" _ (ByVal nBufferLength As Long, ByVal lpBuffer As String) As LongPrivate Sub Command1_Click() Dim WinDir As String Dim SysDir As String Dim TempPath As String Dim l As Long WinDir = Space(144) SysDir = Space$(144) TempPath = Space(144) ' Получаем директорию Windows l = GetWindowsDirectory(WinDir, 144) WinDir = Left$(WinDir, l) ' Получаем системную директорию l = GetSystemDirectory(SysDir, 144) SysDir = Left$(SysDir, l) ' Получаем директорию для временных файлов l = GetTempPath(144, TempPath) TempPath = Left$(TempPath, l) End Sub
|
7in
|
опубликован 13-02-2002 21:00 MSK
Зачем же так извращаться? :) |
Vasya2000
|
опубликован 16-02-2002 15:10 MSK
чтоб враги запутались |