From 9d580533d9cff58f0aa3721c58d8a4d27c8b3695 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Tue, 24 May 2011 07:10:33 +0000
Subject: [PATCH] * Fixed compile error in FileCreate

git-svn-id: trunk@17549 -
---
 rtl/win/sysutils.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/rtl/win/sysutils.pp b/rtl/win/sysutils.pp
index ca40c0cec5..f5557e87c3 100644
--- a/rtl/win/sysutils.pp
+++ b/rtl/win/sysutils.pp
@@ -235,12 +235,12 @@ end;
 
 Function FileCreate (Const FileName : String) : THandle;
 begin
-  FileCreate:=FileCreate(FileName, fmShareExclusive);
+  FileCreate:=FileCreate(FileName, fmShareExclusive, 0);
 end;
 
 Function FileCreate (Const FileName : String; Rights:longint) : THandle;
 begin
-  FileCreate:=FileCreate(FileName, Mode, 0);
+  FileCreate:=FileCreate(FileName, fmShareExclusive, Rights);
 end;
 
 Function FileCreate (Const FileName : String; ShareMode : Integer; Rights : Integer) : THandle;