From: <ou...@us...> - 2009-11-05 16:03:36
|
Revision: 3067 http://jcl.svn.sourceforge.net/jcl/?rev=3067&view=rev Author: outchy Date: 2009-11-05 16:03:26 +0000 (Thu, 05 Nov 2009) Log Message: ----------- move the thread var to the implementation section: it is not emitted to HPP files and that makes BCB6 happy. use getter/setter to access the JclRegWOW64Access thread variable. Modified Paths: -------------- trunk/jcl/source/windows/JclRegistry.pas Modified: trunk/jcl/source/windows/JclRegistry.pas =================================================================== --- trunk/jcl/source/windows/JclRegistry.pas 2009-11-05 08:17:06 UTC (rev 3066) +++ trunk/jcl/source/windows/JclRegistry.pas 2009-11-05 16:03:26 UTC (rev 3067) @@ -347,12 +347,10 @@ } TJclRegWOW64Access = (raDefault, raNative, ra32Key, ra64Key); -{$IFDEF BCB6} -var -{$ELSE} -threadvar -{$ENDIF BCB6} - JclRegWOW64Access: TJclRegWOW64Access {= raDefault}; +// cannot access variable JclRegWOW64Access from outside package +// so these helper functions can be used. +function RegGetWOW64AccessMode: TJclRegWOW64Access; +procedure RegSetWOW64AccessMode(Access: TJclRegWOW64Access); {$IFDEF UNITVERSIONING} const @@ -390,6 +388,19 @@ var CachedIsWindows64: Integer = -1; +threadvar + JclRegWOW64Access: TJclRegWOW64Access {= raDefault}; + +function RegGetWOW64AccessMode: TJclRegWOW64Access; +begin + Result := JclRegWOW64Access; +end; + +procedure RegSetWOW64AccessMode(Access: TJclRegWOW64Access); +begin + JclRegWOW64Access := Access; +end; + //=== Internal helper routines =============================================== function GetWOW64AccessMode(samDesired: REGSAM): REGSAM; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |