Сохранение файла в системные директории Delphi

[Aliens_wolfs]

Вот функция для определения системной папки. Может тоже пригадиться)

function WinSystem: string;
begin
 SetLength(result, 1024);
 SetLength(result, GetSystemDirectory(PChar(result), 1024));
end;