Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.47 MB
Время: 0.016 c
14-33783
ИМХО
2003-08-23 02:40
2003.09.11
Смертная казнь in USA


14-33793
Romkin
2003-08-22 14:37
2003.09.11
А Кэрролла еще не поминали?


4-33845
Mishenka
2003-07-11 17:49
2003.09.11
Вопрос про ShellExecute и др.


14-33743
jack128
2003-08-25 00:03
2003.09.11
Именинники 25 августа


3-33451
Ден
2003-08-22 10:01
2003.09.11
Программное создание псевдонима SQL