MihailM
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здесь код (не весь) :
Код:
[Setup]
....
DefaultDirName={code:AvPatch}
....
Compression=lzma2/Ultra
SolidCompression=true
DisableDirPage=false
AllowRootDirectory=true
DirExistsWarning=no
InternalCompressLevel=Ultra
Uninstallable=false
UsePreviousGroup=false
AppendDefaultGroupName=false
DisableProgramGroupPage=yes
AlwaysShowComponentsList=false
ShowComponentSizes=false
FlatComponentsList=false
UsePreviousTasks=true
DisableFinishedPage=false
AlwaysShowDirOnReadyPage=true
CreateUninstallRegKey=false
UpdateUninstallLogAppName=false
AllowUNCPath=true // это я уже добавил . вдруг помогло бы .
[Files]
Source: путь\*; DestDir: {app}; Flags: ignoreversion recursesubdirs createallsubdirs;
[_Code]
{ RedesignWizardFormBegin } // Don't remove this line!
// Don't modify this section. It is generated automatically.
procedure RedesignWizardForm;
begin
with WizardForm.DirBrowseButton do
begin
Enabled := False;
Visible := False;
end;
with WizardForm.DirEdit do
begin
ReadOnly := false;
end;
{ ReservationBegin }
// This part is for you. Add your specialized code here.
{ ReservationEnd }
end;
// Don't modify this section. It is generated automatically.
{ RedesignWizardFormEnd } // Don't remove this line!
procedure InitializeWizard();
begin
RedesignWizardForm;
end;
// Начало Процедура "Определение местонахождения игры"
function AvPatch(Default: String): String;
var AvRes: String;
begin
RegQueryStringValue(HKEY_CURRENT_USER, 'Software\Valve\Steam','SourceModInstallPath', AvRes);
if AvRes = '' then RegQueryStringValue(HKEY_CURRENT_USER, 'Software\Wow6432Node\Valve\Steam','SteamPath', AvRes);
if AvRes = '' then Result:= 'Steam';
//if AvRes = '' then Result:= 'Steam\SteamApps\sourcemods';
if AvRes <> '' then Result:= AvRes;
//if AvRes = 'Steam' then DisableDirPage=no;
end;
// Конец Процедура "Определение местонахождения игры"
|
Компилировал в InnoSetup Compiler 5.5.1ee2 (a) (build 121002)
|
Всего записей: 2498 | Зарегистр. 19-10-2003 | Отправлено: 01:47 18-01-2016 | Исправлено: MihailM, 11:57 21-12-2017 |
|
