innosetup: check username doesn't end with exclamation mark

runelite · Aug 31, 2023 · cf2a41f · cf2a41f
1 parent 7ccb8a9
commit cf2a41f
Show file tree

Hide file tree

Showing 4 changed files with 29 additions and 3 deletions.
diff --git a/innosetup/runelite.iss b/innosetup/runelite.iss
@@ -54,4 +54,5 @@ Type: filesandordirs; Name: "{%USERPROFILE}\.runelite\repository2"
 Type: filesandordirs; Name: "{app}"
 
 [Code]
-#include "upgrade.pas"
+#include "upgrade.pas"
+#include "usernamecheck.pas"
diff --git a/innosetup/runelite32.iss b/innosetup/runelite32.iss
@@ -54,4 +54,5 @@ Type: filesandordirs; Name: "{%USERPROFILE}\.runelite\repository2"
 Type: filesandordirs; Name: "{app}"
 
 [Code]
-#include "upgrade.pas"
+#include "upgrade.pas"
+#include "usernamecheck.pas"
diff --git a/innosetup/runeliteaarch64.iss b/innosetup/runeliteaarch64.iss
@@ -54,4 +54,5 @@ Type: filesandordirs; Name: "{%USERPROFILE}\.runelite\repository2"
 Type: filesandordirs; Name: "{app}"
 
 [Code]
-#include "upgrade.pas"
+#include "upgrade.pas"
+#include "usernamecheck.pas"
diff --git a/innosetup/usernamecheck.pas b/innosetup/usernamecheck.pas
@@ -0,0 +1,23 @@
+// https://stackoverflow.com/a/61522649
+function EndsWith(SubText, Text: string): Boolean;
+var
+  EndStr: string;
+begin
+  EndStr := Copy(Text, Length(Text) - Length(SubText) + 1, Length(SubText));
+  { Use SameStr, if you need a case-sensitive comparison }
+  Result := SameText(SubText, EndStr);
+end;
+
+function InitializeSetup(): Boolean;
+var
+  username: String;
+begin
+  username := GetUserNameString();
+  Result := True;
+  if EndsWith('!', username) then
+  begin
+    MsgBox('RuneLite is incompatible with Windows usernames which end with an exclamation mark (!).',
+      mbError, MB_OK);
+    Result := False;
+  end;
+end;