* Implemented GetTempDir for wince. Bug #9348.

git-svn-id: trunk@8326 -

rtl/wince/sysutils.pp

@@ -28,6 +28,7 @@ uses
 {$DEFINE HAS_SLEEP}
 {$DEFINE HAS_OSERROR}
 {$DEFINE HAS_OSCONFIG}
+{$DEFINE HAS_TEMPDIR}
 
 { Include platform independent interface part }
 {$i sysutilh.inc}
@@ -789,6 +790,15 @@ begin
     end;
 end;
 
+Function GetTempDir(Global : Boolean) : String;
+var
+  buf: widestring;
+begin
+  SetLength(buf, MAX_PATH);
+  SetLength(buf, GetTempPath(Length(buf) + 1, PWideChar(buf)));
+  Result:=buf;
+end;
+
 {****************************************************************************
                     Target Dependent WideString stuff
 ****************************************************************************}