[fpc-pascal] SysUtils.GetEnvironmentVariable

[Marcos Douglas]

Hi,

I think SysUtils.GetEnvironmentVariable has a problem.
I tried to use GetEnvironmentVariable on WinXP and Win7. Sometimes
works on WinXP, others not. But never worked on Win7.

I asked some friends to test on Linux and did not work too.

My FPC is 2.6.1 rev 20648 on WinXP.

The test:
1- Create a Environment Variable (eg: FOO).
2- Try this:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(SysUtils.GetEnvironmentVariable('FOO'));
end;

Marcos Douglas