paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 15:37:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE/Instances: Use a "USERNAME" environment variable in Windows instead of "USER"

Browse Source
This commit is contained in:
n7800 2025-03-13 00:00:32 +05:00
parent c4f158abb8
commit b2229d4e82
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/ideinstances.pas
View File

@ -189,7 +189,7 @@ begin
if FServerPrefix = '' then if FServerPrefix = '' then
begin begin
// Calculate the user specific instance prefix only once. // Calculate the user specific instance prefix only once.
FServerPrefix := GetEnvironmentVariable('USER'); // current user FServerPrefix := GetEnvironmentVariable({$IFDEF MSWINDOWS}'USERNAME'{$ELSE}'USER'{$ENDIF});
// encode to cover illegal chars ('-' etc) // encode to cover illegal chars ('-' etc)
FServerPrefix := IntToStr( crc32(0, pbyte(FServerPrefix), Length(FServerPrefix)) ) FServerPrefix := IntToStr( crc32(0, pbyte(FServerPrefix), Length(FServerPrefix)) )
+ '_LazarusMain'; + '_LazarusMain';