paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 23:19:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* handle the fact that GetEnvironmentStringsA returns the environment in the

Browse Source 
OEM instead of in the Ansi code page (mantis #22524, #15233)

git-svn-id: branches/cpstrrtl@25092 -
This commit is contained in:
Jonas Maebe 2013-07-12 17:18:28 +00:00
parent a5273abc9c
commit d919794fdf
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/win/sysutils.pp
View File

@ -971,24 +971,30 @@ end;
Function GetEnvironmentVariable(Const EnvVar : String) : String;
var
s : string;
i : longint;
oemenvvar, oemstr : RawByteString;
i, hplen : longint;
hp,p : pchar;
begin
oemenvvar:=uppercase(envvar);
SetCodePage(oemenvvar,CP_OEMCP);
Result:='';
p:=GetEnvironmentStrings;
hp:=p;
while hp^<>#0 do
begin
s:=strpas(hp);
i:=pos('=',s);
if uppercase(copy(s,1,i-1))=upcase(envvar) then
oemstr:=hp;
{ cache length, may change after uppercasing depending on code page }
hplen:=length(oemstr);
{ all environment variables are encoded in the oem code page }
SetCodePage(oemstr,CP_OEMCP,false);
i:=pos('=',oemstr);
if uppercase(copy(oemstr,1,i-1))=oemenvvar then
begin
Result:=copy(s,i+1,length(s)-i);
Result:=copy(oemstr,i+1,length(oemstr)-i);
break;
end;
{ next string entry}
hp:=hp+strlen(hp)+1;
hp:=hp+hplen+1;
end;
FreeEnvironmentStrings(p);
end;