From a768c29b2de2aaac5d6d988d393f16f0790572e0 Mon Sep 17 00:00:00 2001
From: yury <jura@cp-lab.com>
Date: Tue, 28 Aug 2007 21:17:49 +0000
Subject: [PATCH] * Implemented GetTempDir for wince. Bug #9348.

git-svn-id: trunk@8326 -
---
 rtl/wince/sysutils.pp | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/rtl/wince/sysutils.pp b/rtl/wince/sysutils.pp
index 95f6159154..084b72ba26 100644
--- a/rtl/wince/sysutils.pp
+++ b/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
 ****************************************************************************}