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

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

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


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

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


evgenik123456, чуть-чуть изменил вариант serg aka lain. Попробуйте:
читать дальше »
Код: Выделить весь код
[Setup]
AppName=Spore
AppVerName=Spore
DefaultDirName={code:GetInstallDataDir}
AppendDefaultDirName=False
ShowLanguageDialog=auto
OutputDir=.


[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 := RemoveQuotes(InstallDataDir)
  else
    Result := AddBackSlash(ExpandConstant('{pf}\Spore'));
end;
Это сообщение посчитали полезным следующие участники:

Отправлено: 18:41, 23-08-2009 | #1325