[fpc-pascal] Help collecting GetAppConfigDir output

[Martin]

Felipe Monteiro de Carvalho wrote:
> Hello,
>
> I am trying to collect the output of GetAppConfigDir/File from various
> systems, but I don't have easy access to a Windows Vista computer.
> Maybe someone would be kind enough to run the following trivial
> application in Windows Vista and return the output =)
>
> thanks in advance,
>
> program project1;
>
> {$mode objfpc}{$H+}
>
> uses
>   SysUtils;
>
> begin
>   WriteLn(GetAppConfigDir(True));
>   WriteLn(GetAppConfigDir(False));
>   WriteLn(GetAppConfigFile(True));
>   WriteLn(GetAppConfigFile(False));
> end.
>   
32bit vista home premium SP2

C:\ProgramData\project1\
C:\Users\martin\AppData\Local\project1\
C:\ProgramData\project1\project1.cfg
C:\Users\martin\AppData\Local\project1\project1.cfg