Flummi/amxmodx
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

few changes, little bug fix for ESF (again)

Browse Source
This commit is contained in:
Christian Hammacher 2006-07-22 11:46:43 +00:00
parent 8837c52d81
commit f92017516f
4 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
installer/installer/AMXInstaller.exe
View File

Binary file not shown.

2
installer/installer/UnitFunctions.pas
View File

@ -66,7 +66,7 @@ begin
try try
eRegistry.RootKey := HKEY_CURRENT_USER; eRegistry.RootKey := HKEY_CURRENT_USER;
if eRegistry.OpenKey('Software\Valve\Steam', False) then if eRegistry.OpenKey('Software\Valve\Steam', False) then
Result := IncludeTrailingBackslash(StringReplace(eRegistry.ReadString('SteamPath'), '/', '\', [rfReplaceAll])) + 'SteamApps\' Result := IncludeTrailingPathDelimiter(StringReplace(eRegistry.ReadString('SteamPath'), '/', '\', [rfReplaceAll])) + 'SteamApps\'
else else
Result := ''; Result := '';
except except

4
installer/installer/UnitInstall.pas
View File

@ -486,7 +486,7 @@ begin
end; end;
modESF: begin modESF: begin
if Pos('esf', FileList[i]) = 1 then begin if Pos('esf', FileList[i]) = 1 then begin
AddStatus('Copying file: addons\amxmodx\' + Copy(FileList[i], 4, Length(FileList[i])), clBlack); AddStatus('Copying file: addons\amxmodx\' + Copy(FileList[i], 5, Length(FileList[i])), clBlack);
FileCopy(ExtractFilePath(ParamStr(0)) + 'files\' + FileList[i], ePath + 'addons\amxmodx\' + Copy(FileList[i], 4, Length(FileList[i])), CopyConfig); FileCopy(ExtractFilePath(ParamStr(0)) + 'files\' + FileList[i], ePath + 'addons\amxmodx\' + Copy(FileList[i], 4, Length(FileList[i])), CopyConfig);
end; end;
end; end;
@ -596,6 +596,8 @@ var eStr: TStringList;
CopyConfig: Boolean; CopyConfig: Boolean;
eGoBack: Boolean; eGoBack: Boolean;
begin begin
eGoBack := False;
Screen.Cursor := crAppStart; Screen.Cursor := crAppStart;
frmMain.cmdCancel.Show; frmMain.cmdCancel.Show;
frmMain.cmdCancel.Caption := '&Cancel'; frmMain.cmdCancel.Caption := '&Cancel';

BIN
installer/installer/UnitSelectModPath.dfm
View File

Binary file not shown.