GitHub/amxmodx
2
0
Fork 0
mirror of https://github.com/alliedmodders/amxmodx.git synced 2024-12-26 14:55:36 +03:00
Code Issues Projects Releases Wiki Activity

Fixed bug that didn't allow users to use "non-email accounts" for listen+dedicated server installations

Browse Source
This commit is contained in:
Christian Hammacher 2006-05-19 18:37:03 +00:00
parent b40f5e6637
commit b4a77512ae
2 changed files with 3 additions and 3 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.

6
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 := ExtractFilePath(StringReplace(eRegistry.ReadString('SteamExe'), '/', '\', [rfReplaceAll])) + 'SteamApps\' Result := IncludeTrailingBackslash(StringReplace(eRegistry.ReadString('SteamPath'), '/', '\', [rfReplaceAll])) + 'SteamApps\'
else else
Result := ''; Result := '';
except except
@ -82,9 +82,9 @@ begin
Result := TStringList.Create; Result := TStringList.Create;
ePath := GetSteamAppsDir; ePath := GetSteamAppsDir;
if DirectoryExists(ePath) then begin if DirectoryExists(ePath) then begin
if FindFirst(ePath + '*.*', faDirectory, eSearch) = 0 then begin if FindFirst(ePath + '*.*', faAnyFile, eSearch) = 0 then begin
repeat repeat
if (Pos('@', eSearch.Name) <> 0) then if (eSearch.Attr and faDirectory = faDirectory) and (eSearch.Name <> '.') and (eSearch.Name <> '..') and (LowerCase(eSearch.Name) <> 'sourcemods') then
Result.Add(eSearch.Name) Result.Add(eSearch.Name)
until FindNext(eSearch) <> 0; until FindNext(eSearch) <> 0;
end; end;