GitHub/amxmodx
2
0
Fork 0
mirror of https://github.com/alliedmodders/amxmodx.git synced 2024-12-25 14:25:38 +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
eRegistry.RootKey := HKEY_CURRENT_USER;
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
Result := '';
except
@ -82,9 +82,9 @@ begin
Result := TStringList.Create;
ePath := GetSteamAppsDir;
if DirectoryExists(ePath) then begin
if FindFirst(ePath + '*.*', faDirectory, eSearch) = 0 then begin
if FindFirst(ePath + '*.*', faAnyFile, eSearch) = 0 then begin
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)
until FindNext(eSearch) <> 0;
end;