ソースを参照

* Fixed wince compilation.
* Added some constants.

git-svn-id: trunk@10134 -

yury 17 年 前
コミット
f040558e1c
2 ファイル変更4 行追加2 行削除
  1. 1 1
      rtl/wince/sysutils.pp
  2. 3 1
      rtl/wince/wininc/coredll.inc

+ 1 - 1
rtl/wince/sysutils.pp

@@ -742,7 +742,7 @@ Function GetAppConfigDir(Global : Boolean) : String;
 
 begin
   If Global then
-    Result:=GetSpecialDir(CSIDL_COMMON_APPDATA)
+    Result:=GetSpecialDir(CSIDL_WINDOWS)
   else
     Result:=GetSpecialDir(CSIDL_APPDATA);
   If (Result<>'') then

+ 3 - 1
rtl/wince/wininc/coredll.inc

@@ -2173,9 +2173,11 @@ const
   CSIDL_DRIVES             = $0011;
   CSIDL_NETWORK            = $0012;
   CSIDL_NETHOOD            = $0013;
-  CSIDL_FONTS		   = $0014;
+  CSIDL_FONTS		           = $0014;
   CSIDL_TEMPLATES          = $0015;
   CSIDL_APPDATA            = $001a;
+  CSIDL_WINDOWS            = $0024;
+  CSIDL_PROGRAM_FILES      = $0026;
 
 //*****************************************************************************
 // types