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;