1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
[Files]
Source: "profiltdgv.cfg"; DestDir: "{code:settingsdir}\maintt"
[code]
function settingsdir(Param: String): String;
begin
if not RegQueryStringValue(HKLM,'SOFTWARE\EA GAMES\MOHDA En Formation\2.0','Path', Result) then
begin
if not RegQueryStringValue(HKLM,'SOFTWARE\EA GAMES\Medal of Honor Allied Assault Breakthrough\2.0','Path', Result) then
begin
if not RegQueryStringValue(HKLM,'SOFTWARE\EA GAMES\MEDAL OF HONOR DEBARQUEMENT ALLIE L''OFFENSIVE\2.0','Path', Result) then
begin
Result := 'C:\Program Files\EA GAMES\MOHDA';
end;
end;
end;
end; |
Partager