Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Пользователь


Сообщения: 129
Благодарности: 76

Профиль | Отправить PM | Цитировать


evgenik123456,
Можно ещё и так
Код: Выделить весь код
; Inno Setup Compiler 5.3.4(u)

[Setup]
AppName=Spore
AppVerName=Spore
DefaultDirName={code:GetInstallDataDir}
AppendDefaultDirName=False
ShowLanguageDialog=auto
OutputDir=userdocs:Spore.


[Languages]
Name: "english"; MessagesFile: "compiler:Default.isl";
Name: "russian"; MessagesFile: "compiler:Languages\Russian.isl";

[code] 

function GetInstallDataDir(InstallDataDir: String): String;
begin
  RegQueryStringValue(HKLM, 'Software\Electronic Arts\SPORE', 'DataDir', InstallDataDir);
  if InstallDataDir <> '' then
    Result := InstallDataDir
  else
    Result := AddBackSlash(ExpandConstant('{pf}\Spore'));
end;
Что есть тоже самое, что и
Код: Выделить весь код
DefaultDirName={reg:HKLM\Software\Electronic Arts\SPORE,DataDir|{pf}\My Program}

Отправлено: 17:39, 23-08-2009 | #1324