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

LazUtils: WinCE use CSIDL_LOCAL to fix compilation error.

Browse Source 
git-svn-id: trunk@43693 -
This commit is contained in:
bart 2014-01-11 00:57:27 +00:00
parent 1729ccb7bf
commit 596e412566
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazutils/winlazfileutils.inc
View File

@ -696,11 +696,12 @@ end;
function GetAppConfigDirWide(Global: Boolean; Create: boolean = false): string;
const
CSIDL_GLOBAL = {$IFDEF WINCE}CSIDL_WINDOWS{$ELSE}CSIDL_COMMON_APPDATA{$ENDIF WINCE};
CSIDL_LOCAL = {$IFDEF WINCE}CSIDL_APPDATA{$ELSE}CSIDL_LOCAL_APPDATA{$ENDIF};
begin
If Global then
Result := GetWindowsSpecialDirW(CSIDL_GLOBAL)
else
Result := GetWindowsSpecialDirW(CSIDL_LOCAL_APPDATA);
Result := GetWindowsSpecialDirW(CSIDL_LOCAL);
If (Result <> '') then
begin
if VendorName <> '' then