From bd30d32683e06ed2f78ae5129e2b1368b52d0c5f Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Wed, 23 Nov 2005 19:43:16 +0000
Subject: [PATCH]  * getrandomrgn

git-svn-id: trunk@1809 -
---
 rtl/win32/wininc/defines.inc | 1 +
 rtl/win32/wininc/func.inc    | 3 +++
 2 files changed, 4 insertions(+)

diff --git a/rtl/win32/wininc/defines.inc b/rtl/win32/wininc/defines.inc
index cf754b8b64..2e83d191fc 100644
--- a/rtl/win32/wininc/defines.inc
+++ b/rtl/win32/wininc/defines.inc
@@ -5351,6 +5351,7 @@ const
 
   WM_APP                        = $8000;
 
+  SYSRGN                  	= 4;
 
 
 {$endif read_interface}
diff --git a/rtl/win32/wininc/func.inc b/rtl/win32/wininc/func.inc
index 0d7af48c63..aaee0710b5 100644
--- a/rtl/win32/wininc/func.inc
+++ b/rtl/win32/wininc/func.inc
@@ -46,6 +46,7 @@
 
 {$ifdef read_interface}
 
+function GetRandomRgn(aHDC: HDC; aHRGN: HRGN; iNum: WINT): WINT; stdcall; external 'gdi32';
 function AccessCheck(pSecurityDescriptor:PSECURITY_DESCRIPTOR; ClientToken:HANDLE; DesiredAccess:DWORD; GenericMapping:PGENERIC_MAPPING; PrivilegeSet:PPRIVILEGE_SET;PrivilegeSetLength:LPDWORD;
   GrantedAccess:LPDWORD; AccessStatus:LPBOOL):WINBOOL; external 'advapi32' name 'AccessCheck';
 function InterlockedIncrement(lpAddend:LPLONG):LONG; external 'kernel32' name 'InterlockedIncrement';
@@ -1245,6 +1246,8 @@ function GlobalReAllocPtr(lp:Pointer;cbNew,flags:DWord):Pointer;
 function GlobalPtrHandle(lp:pointer):Pointer;
 function SetLayeredWindowAttributes(HWND:hwnd;crKey :COLORREF;bAlpha : byte;dwFlags : DWORD):WINBOOL; external 'user32' name 'SetLayeredWindowAttributes';
 
+
+
 {$endif read_interface}