Автор | Сообщение |
|
| постоянный участник
|
Пост N: 679
Зарегистрирован: 12.09.06
|
|
Отправлено: 18.09.08 18:08. Заголовок: Как получить SET переменные компа ?
Всем привет ... Подскажите как получить SET переменные компьютера ? А то как я делаю - просто ... cRun := CurDrive()+":"+DirName()+"\setstart.bat" STRFILE("SET > win.set", cRun, .F.) ShellExecute(GetDeskTopWindow(), 'open',cRun, "", "" , , 0) INKEY(0.1) cTemp := FILESTR(cTmpFile) ..... далее анализ cTemp
|
|
|
Ответов - 11
[только новые]
|
|
|
| модератор
|
Пост N: 858
Зарегистрирован: 25.05.05
|
|
Отправлено: 18.09.08 18:30. Заголовок: Andrey пишет: как п..
Andrey пишет: цитата: | как получить SET переменные |
| Тестовый пример для MiniGUI: цитата: | #include "minigui.ch" *--------------------------------------------------------* Procedure main() *--------------------------------------------------------* DEFINE WINDOW Form_1 ; AT 0,0 ; WIDTH 640 ; HEIGHT 480 ; TITLE 'Demo' ; MAIN ; TOPMOST @ 50 ,100 BUTTON Button_1 ; CAPTION "Get Env vars" ; ACTION aeval( GetEnvVars(), {|e| msginfo(e[2],e[1])} ) ; WIDTH 140 ; HEIGHT 30 END WINDOW CENTER WINDOW Form_1 ACTIVATE WINDOW Form_1 Return *--------------------------------------------------------* Function GetEnvVars() *--------------------------------------------------------* local aEnvArray := ARRAY( FT_GETE() ), aRet := {} FT_GETE( aEnvArray ) aeval( aEnvArray, {|e| if(left(e, 1)== "=", , aadd(aRet, { token(e,"=",1), token(e,"=",2)}))} ) return aRet |
|
|
|
|
|
| |
Пост N: 881
Зарегистрирован: 17.05.05
|
|
Отправлено: 18.09.08 18:39. Заголовок: Зачем тебе все ?..
Зачем тебе все ?
|
|
|
|
| постоянный участник
|
Пост N: 680
Зарегистрирован: 12.09.06
|
|
Отправлено: 18.09.08 21:51. Заголовок: gfilatov пишет: Зач..
gfilatov пишет: Хочу знать переменные на компе. Я же не поеду в другие города смотреть как у них там устроено. А так запишу в лог-файл и по телефону им скажу, что и где менять ....
|
|
|
|
| Администратор
|
Пост N: 969
Зарегистрирован: 23.05.05
|
|
Отправлено: 19.09.08 08:29. Заголовок: Andrey пишет: Подск..
Andrey пишет: цитата: | Подскажите как получить SET переменные компьютера ? |
| Еще есть функция из tools GetEnv()
|
|
|
|
| постоянный участник
|
Пост N: 686
Зарегистрирован: 12.09.06
|
|
Отправлено: 27.09.08 13:36. Заголовок: Все это хорошо, то ч..
Все это хорошо, то что вы мне дали.... А как получить сразу ВСЕ переменные, без их описания ??? Я же не знаю какие проги там установлены ... Ну SET PATH, SET INCLUDE, и т.д. я перечислю, а как быть с другими прогами, которые я не знаю. Far - например тоже пишет свою SET переменную и т.д. Я же просто хочу узнать что в компе установленно !!! Мне нужен аналог ДОСовсего SET ...
|
|
|
|
| |
Пост N: 905
Зарегистрирован: 17.05.05
|
|
Отправлено: 27.09.08 15:13. Заголовок: Чем не аналог ? Хош ..
Чем не аналог ? Хош в файл пиши хош в переменную хош в массив и тд итп cEnvBlock := "" FT_GETE(@cEnvBlock) MEMOWRIT("ENVIRON.TXT", cEnvBlock)
|
|
|
|
| постоянный участник
|
Пост N: 687
Зарегистрирован: 12.09.06
|
|
Отправлено: 29.09.08 11:19. Заголовок: Dima пишет: FT_GETE..
Dima пишет: Нет такой функции в хХарборе !!! По хелпу смотрел. Откуда она взята ?
|
|
|
|
| |
Пост N: 906
Зарегистрирован: 17.05.05
|
|
Отправлено: 29.09.08 12:14. Заголовок: LIBNF.LIB..
LIBNF.LIB
|
|
|
|
| постоянный участник
|
Пост N: 690
Зарегистрирован: 12.09.06
|
|
Отправлено: 29.09.08 16:57. Заголовок: Dima пишет: LIBNF...
Dima пишет: А где ее взять для хХарбора ? Не добавляя CONTRIB ?
|
|
|
|
| постоянный участник
|
Пост N: 691
Зарегистрирован: 12.09.06
|
|
Отправлено: 29.09.08 17:16. Заголовок: Прицепил getenvrn.c ..
Прицепил getenvrn.c Собрал тест из вышеперечисленных строк и получил то что хотел за исключением какойто фигни в начале ..... Кто может подсказать что это такое ??? ----------------------------------- фигня в начале environ.txt --------------- =::=::\ =C:=C:\ABONENT2\temp =D:=D:\@Mail\ADZ-г.Красноярск =E:=P =L:=L:\ =U:=U:\ =W:=W:\FOND9\UTIL\SET.system =Z:=Z:\xHarbour\contrib\libnf ---------------------------------------------------- далее нормально --------------- ALLUSERSPROFILE=E:\Documents and Settings\All Users
|
|
|
|
| Администратор
|
Пост N: 978
Зарегистрирован: 23.05.05
|
|
Отправлено: 30.09.08 08:35. Заголовок: Это текущие папки на..
Это текущие папки на всех дисках. Выходит, GetEnvironmentStrings() возвращает их вместе с окружением
|
|
|
|