paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 15:50:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Implemented GetTempDir for wince. Bug #9348.

Browse Source 
git-svn-id: trunk@8326 -
This commit is contained in:
yury 2007-08-28 21:17:49 +00:00
parent 1159ee9744
commit a768c29b2d
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/wince/sysutils.pp
View File

@ -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
****************************************************************************}