Delphi roaming folder, registry access - delphi

Question

I developed an application and I want to deploy it on one machine of my client network.
this machine turns under win7 64 bits and needs an admin authorization (they use active directory, GPO,...) so far no problem.
i am using the roaming folder to store some files.
the problem is when I launch the application it seems that it doesn't find the correct current user roaming folder path, I think that's redirected to the admin roaming folder.
my code is as follow
Function GetRoamingFolderPath():String;
var
OsVersion: integer;
Path: String;
begin
OsVersion:=(TOSVersion.Major);
if OsVersion < 6 then
Path:= GetSpecialFolderPath(CSIDL_COMMON_APPDATA)
else
path:= GetSpecialFolderPath(CSIDL_APPDATA);
end;
where GetSpecialFolderPath is defined as :
function GetSpecialFolderPath(folder : integer) : string;
const SHGFP_TYPE_CURRENT = 0;
var path: array [0..MAX_PATH] of char;
begin
if SUCCEEDED(SHGetFolderPath(0,folder,0,SHGFP_TYPE_CURRENT,#path[0]))
then Result := path
else
Result := '';
end;
also I need to register some values on registry under HKEY_CURRENT_USER , it's done but my application can't access them !
any idea on how to resolve this 2 issues.
thanks.

Answer 1

Function GetRoamingFolderPath():String;
var
OsVersion: integer;
Path: String;
begin
OsVersion:=(TOSVersion.Major);
if OsVersion < 6 then
Path:= GetSpecialFolderPath(CSIDL_COMMON_APPDATA)
else
path:= GetSpecialFolderPath(CSIDL_APPDATA);
end;
This function assigns to the local variable path, but not the return value. Hence its return value is undefined. Remove the variable path and assign to Result instead.
function GetRoamingFolderPath: string;
begin
if TOSVersion.Major < 6 then
Result := GetSpecialFolderPath(CSIDL_COMMON_APPDATA)
else
Result := GetSpecialFolderPath(CSIDL_APPDATA);
end;
This would have been obvious had you stepped through the code under the debugger and inspected the intermediate values. You would have observed that GetSpecialFolderPath returned the desired value, but that it got lost in GetRoamingFolderPath. Once you had made that observation, it would have become obvious what the fault was. I urge you to debug like this in future when you encounter such problems.