Отправлено: 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

 Отправлено: 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

 Отправлено: 18.09.08 18:39. Заголовок: Зачем тебе все ?..

Зачем тебе все ?

 Отправлено: 18.09.08 21:51. Заголовок: gfilatov пишет: Зач..

gfilatov пишет:

цитата:

Зачем тебе все ?

Хочу знать переменные на компе. Я же не поеду в другие города смотреть как у них там устроено.
А так запишу в лог-файл и по телефону им скажу, что и где менять ....

 Отправлено: 19.09.08 08:29. Заголовок: Andrey пишет: Подск..

Andrey пишет:

цитата:

Подскажите как получить SET переменные компьютера ?

Еще есть функция из tools GetEnv()

 Отправлено: 27.09.08 13:36. Заголовок: Все это хорошо, то ч..

Все это хорошо, то что вы мне дали....
А как получить сразу ВСЕ переменные, без их описания ???

Я же не знаю какие проги там установлены ...
Ну SET PATH, SET INCLUDE, и т.д. я перечислю, а как быть с другими прогами, которые я не знаю.
Far - например тоже пишет свою SET переменную и т.д.

Я же просто хочу узнать что в компе установленно !!!
Мне нужен аналог ДОСовсего SET ...

 Отправлено: 27.09.08 15:13. Заголовок: Чем не аналог ? Хош ..

Чем не аналог ?
Хош в файл пиши хош в переменную хош в массив и тд итп
cEnvBlock := ""
FT_GETE(@cEnvBlock)
MEMOWRIT("ENVIRON.TXT", cEnvBlock)

 Отправлено: 29.09.08 11:19. Заголовок: Dima пишет: FT_GETE..

Dima пишет:

цитата:

FT_GETE(@cEnvBlock)

Нет такой функции в хХарборе !!! По хелпу смотрел.
Откуда она взята ?

 Отправлено: 29.09.08 12:14. Заголовок: LIBNF.LIB..

LIBNF.LIB

 Отправлено: 29.09.08 16:57. Заголовок: Dima пишет: LIBNF...

Dima пишет:

цитата:

LIBNF.LIB

А где ее взять для хХарбора ?
Не добавляя CONTRIB ?

 Отправлено: 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

 Отправлено: 30.09.08 08:35. Заголовок: Это текущие папки на..

Это текущие папки на всех дисках. Выходит, GetEnvironmentStrings() возвращает их вместе с окружением