Как получить переменные окружения типа PATH и PROMPT
Хакер идет по улице, в руках держит BFG 9000. Навстречу ему братки крутые:
- Ты где такую феню взял, в натуре?!
А он лениво так:
- Да из Дума, Дебаггером дернул...
Для этого используется API функция GetEnvironmentVariable.
GetEnvironmentVariable возвращает значения:
В случае удачного выполнения функции, возвращаемое значение содержит количество символов, хранящихся в буфере, не включая последнего нулевого.
Если указанная переменная окружения для текущего процесса не найдена, то возвращаемое значение равно нулю.
Если буфер не достаточного размера, то возвращаемое значение равно требуемому размеру для хранения строки значения и завершающего нулевого символа.
function GetDOSEnvVar(const VarName: string): string;
var
i: integer;
begin
Result := '';
try
i := GetEnvironmentVariable(PChar(VarName), nil, 0);
if i > 0 thenbegin
SetLength(Result, i);
GetEnvironmentVariable(Pchar(VarName), PChar(Result), i);
end;
except
Result := '';
end;
end;
В статье описывается способ получения переменных окружения типа PATH и PROMPT с помощью API-функции GetEnvironmentVariable, а также приводится пример использования этой функции на языке Delphi.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Telegram-канал