Подскажите как прочитать переменную окружения

← →
sdram © (2003-07-11 12:34) [0]

PowerChute создает переменную PWRCHUTE с путем расположения. Как прочитать этот путь?

← →
Poirot © (2003-07-11 12:39) [1]

Удалено модератором
Примечание: Не можешь ответить по существу - не наезжай

← →
Игорь Шевченко © (2003-07-11 13:08) [2]

var
buffer : array[0..MAX_PATH] of char;

if GetEnvironmentVariable (PChar("PWRCHUTE"), buffer, sizeof(Buffer)) > 0 then
Result := buffer
else
RaiseLastWin32Error

← →
VMcL © (2003-07-11 15:28) [3]

>sdram © (11.07.03 12:34)

SysUtils.GetEnvironmentVariable

>Игорь Шевченко © (11.07.03 13:08)
Лучше так:

var Len: integer; begin Result := ""; Len := GetEnvironmentVariable(PChar(Name), nil, 0); if Len > 0 then begin SetLength(Result, Len - 1); GetEnvironmentVariable(PChar(Name), PChar(Result), Len); end; end;

А не проще использовать ( <Имя_Переменной>) А не проще использовать GetEnvironmentVariable(<Имя_Переменной>)? На Delphi 6 так можно

VMcL © (11.07.03 15:28)

О вкусном не спорят, я в своем коде бы заменил RaiseLastWin32Error на result := "";

Строчек-то меньше ;-)

Подскажите как прочитать переменную окружения Найти похожие ветки