| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Подскажите как прочитать переменную окружения
sdram © (2003-07-11 12:34:00)
PowerChute создает переменную PWRCHUTE с путем расположения. Как прочитать этот путь?
Игорь Шевченко (2003-07-11 16:41:00) [1]
VMcL © (11.07.03 15:28)
О вкусном не спорят, я в своем коде бы заменил RaiseLastWin32Error на result := "";
Строчек-то меньше ;-)
NikotiN (2003-07-11 16:00:00) [2]А не проще использовать ( <Имя_Переменной>)
А не проще использовать GetEnvironmentVariable(<Имя_Переменной>)? На Delphi 6 так можно
VMcL (2003-07-11 15:28:00) [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;
Игорь Шевченко (2003-07-11 13:08:00) [4]
var
buffer : array[0..MAX_PATH] of char;
if GetEnvironmentVariable (PChar("PWRCHUTE"), buffer, sizeof(Buffer)) > 0 then
Result := buffer
else
RaiseLastWin32Error
Poirot (2003-07-11 12:39:00) [5]
Удалено модератором
Примечание: Не можешь ответить по существу - не наезжай
| |
