Текущий архив: 2003.09.11;
Скачать: CL | DM;

Вниз

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

← →
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;

---

← →
NikotiN   (2003-07-11 16:00) [4]

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

---

← →
Игорь Шевченко   (2003-07-11 16:41) [5]

VMcL © (11.07.03 15:28)

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2003.09.11;
Скачать: CL | DM;

Наверх

Память: 0.45 MB
Время: 0.009 c