XXXler,
Цитата
XXXler:
все нужные вам константы уже есть в Inno (см. спавку)
Скрипты Inno Setup. Помощь и советы [часть 6]
не буду смотреть справку по инно
, я инно не пользуюсь, пишу свой инстал в RadStudioXE
и там нет ничего готового в плане путей (по крайней мере я пока не видел) и как-то пофиг,
тк мне интереснее самому написать реализацию получения нужных мне путей а не пользоваться встроенными, если б они были
коды в моём предыдущем посте - часть исходников проекта на Delphi
а здесь на форуме стараюсь отвечать на вопросы связанные с кодом, тк кому-то помощь, а мне знания
а иногда и сам спрашиваю, ведь тут хватает людей у которых я хотел бы многому научиться
Gnom_aka_Lexander,
Цитата
Gnom_aka_Lexander:
И я совершенно не понимаю, при чем тут Delphi.
Скрипты Inno Setup. Помощь и советы [часть 6]
"код на делфи", написал, чтоб никому в голову не взбрело спросить: "почему при компиляции в инно функций из моего поста вылетают ошибки?"
El Sanchez,
Цитата
El Sanchez:
выбирай:
Скрипты Inno Setup. Помощь и советы [часть 6]
GetEnv = (WinApi) GetEnvironmentVariable
а какую функцию лучше использовать? Мне кажется GetTemPath возвращает то же, что и GetEnvironmentVariable
тк цитирую отсюда
http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx
читать дальше »
Код:
Код: Выделить всё
Remarks
The GetTempPath function checks for the existence of environment variables in the following order and uses the first path found:
The path specified by the TMP environment variable.
The path specified by the TEMP environment variable.
The path specified by the USERPROFILE environment variable.
The Windows directory.
те путь к временной папке мне в какой-то мере гарантирован
и ничего что я использую именно этот путь для хранения временных файлов, там, в папке с уникальным рандомным именем?
к слову рандрмное имя получаю таким макаром:
читать дальше »
Код:
Код: Выделить всё
function GenTempFolserUniqueName(): String;
var
FSobj: Variant;
begin
try
FSobj := CreateOleObject('Scripting.FileSystemObject');
Result := FSobj.GetTempName;
except
Result := 'SourceEngine15_' + IntToStr(GetTickCount());
end;
end;
