Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Documents and Settings / 4 сообщений из 4, страница 1 из 1
03.02.2006, 13:19:38
    #33521865
klen_
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Documents and Settings
Есть ли какая-нибудь переменная содержащая путь, например
C:\Documents and Settings\Пользователь\
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.02.2006, 14:02:18
    #33522035
Melkiades
Melkiades
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Documents and Settings
Код: plaintext
1.
2.
Private Declare Function GetUserProfileDirectory Lib "userenv.dll" Alias "GetUserProfileDirectoryA" 
(ByVal hToken As Long, ByVal lpProfileDir As String, lpcchSize As Long) As Boolean
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.02.2006, 14:46:12
    #33522203
klen_
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Documents and Settings
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private Declare Function GetEnvironmentVariable& Lib "kernel32" Alias "GetEnvironmentVariableA" _
(ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long)


Public Function GetVariable(ByVal NameVAR As String)
' USERPROFILE
   Dim dl&
   Dim bf$
   bf$ = String$( 2048 ,  0 )
   dl& = GetEnvironmentVariable(NameVAR, bf$,  2047 )
   If dl& >  0  Then
      GetVariable = Left$(bf$, dl&)
   End If
End Function

Нашёл в большой толстой книжке. Ещё один пример. Большое мерси
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.02.2006, 16:09:51
    #33522550
Андрей Il
Андрей Il
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Documents and Settings
Есть такая функция Environ().
Варианты:
1. Environ(i), i as Integer, Long
2. Environ(St), St as String

Вот, что эта функция может выдать:

"ALLUSERSPROFILE=C:\Documents and Settings\All Users"
"APPDATA=C:\Documents and Settings\virus\Application Data"
"CLASSPATH=C:\Program Files\Borland\InterBase\InterClient\interclient.jar"
"CommonProgramFiles=C:\Program Files\Common Files"
"COMPUTERNAME=LENA"
"ComSpec=C:\WINNT\system32\cmd.exe"
"HOMEDRIVE=C:"
"HOMEPATH=\"
"LOGONSERVER=\\LENA"
"NUMBER_OF_PROCESSORS=1"
"OS=Windows_NT"
"Os2LibPath=C:\WINNT\system32\os2\dll;"
"Path=C:\Program Files\Borland\Delphi7\Bin;C:\Program Files\Borland\Delphi7\Projects\Bpl\;C:\Program files\Inprise\vbroker\bin;C:\WINNT\system32;C:\WINNT;C:\WINNT\System32\Wbem;C:\PROGRA~1\Borland\Delphi6\Bin;C:\PROGRA~1\Borland\Delphi6\Projects\Bpl;C:\Program Files\Executive Software\Diskeeper\;C:\Program files\BC5\BIN;"
"PATHEXT=.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH"
"PROCESSOR_ARCHITECTURE=x86"
"PROCESSOR_IDENTIFIER=x86 Family 6 Model 8 Stepping 1, AuthenticAMD"
"PROCESSOR_LEVEL=6"
"PROCESSOR_REVISION=0801"
"ProgramFiles=C:\Program Files"
"SystemDrive=C:"
"SystemRoot=C:\WINNT"
"TEMP=C:\DOCUME~1\virus\LOCALS~1\Temp"
"TMP=C:\DOCUME~1\virus\LOCALS~1\Temp"
"USERDOMAIN=LENA"
"USERNAME=virus"
"USERPROFILE=C:\Documents and Settings\virus"
"VBROKERDIR=C:\Program files\Inprise\vbroker"
"windir=C:\WINNT"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Documents and Settings / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 1253ms
Закрыть
start [/forum/search_topic.php?author=jiko&author_mode=last_posts&do_search=1]:
 0ms
get settings:
 7ms
get forum list:
 13ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 319ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 2ms
others: 838ms
total:  1253ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]