Относительные адреса?

[D@n1k007]

Всем привет! Поздравляю всю прекрасную половину форума с наступающим праздником!
Подскажите пожалуйста как использовать относительные адреса в Delphi (например Temp).
Нужно распаковать файл в Temp, но брать так же в расчет то что данная папка может находится не на диске С:\. Вариант типо %TMP% не работает в Delphi :(
Жду ваших советов! Заранее спасибо.

[BlackEric]

Здесь посмотрите (http://articles.org.ru/cn/showdetail.php?cid=7172)

[pva]

вот ещё http://www.cryer.co.uk/brian/delphi/howto_get_temp.htm

function GetTempDirectory: String;
var
tempFolder: array[0..MAX_PATH] of Char;
begin
GetTempPath(MAX_PATH, @tempFolder);
result := StrPas(tempFolder);
end;


t := GetEnvironmentVariable('TEMP')