[Jedi-apilib+wscl-svn] SF.net SVN: jedi-apilib:[818] jwscl/trunk/source/JwsclVersion.pas

[<dez...@us...>]

Revision: 818
          http://jedi-apilib.svn.sourceforge.net/jedi-apilib/?rev=818&view=rev
Author:   dezipaitor
Date:     2009-10-08 17:39:25 +0000 (Thu, 08 Oct 2009)

Log Message:
-----------
#fixed a leaking TRegistry object

Modified Paths:
--------------
    jwscl/trunk/source/JwsclVersion.pas

Modified: jwscl/trunk/source/JwsclVersion.pas
===================================================================
--- jwscl/trunk/source/JwsclVersion.pas	2009-09-22 20:38:04 UTC (rev 817)
+++ jwscl/trunk/source/JwsclVersion.pas	2009-10-08 17:39:25 UTC (rev 818)
@@ -913,21 +913,25 @@
 var R : TRegistry;
 begin
   R := TRegistry.Create;
-  R.RootKey := HKEY_LOCAL_MACHINE;
-  if R.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System') then
-  begin
-    result := R.ReadInteger('EnableLUA') = 1;
-  end
-  else
-   raise EJwsclWinCallFailedException.CreateFmtWinCall(
-        RsWinCallFailed,
-        'IsUACEnabled',                                //sSourceProc
-        ClassName,                                //sSourceClass
-        RSUnVersion,                          //sSourceFile
-        0,                                           //iSourceLine
-        True,                                  //bShowLastError
-        'OpenKeyReadOnly',                   //sWinCall
-        ['OpenKeyReadOnly']);                                  //const Args: array of const
+  try
+	R.RootKey := HKEY_LOCAL_MACHINE;
+	if R.OpenKeyReadOnly('SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System') then
+	begin
+	  result := R.ReadInteger('EnableLUA') = 1;
+	end
+	else
+	  raise EJwsclWinCallFailedException.CreateFmtWinCall(
+		RsWinCallFailed,
+		'IsUACEnabled',                                //sSourceProc
+		ClassName,                                //sSourceClass
+		RSUnVersion,                          //sSourceFile
+		0,                                           //iSourceLine
+		True,                                  //bShowLastError
+		'OpenKeyReadOnly',                   //sWinCall
+		['OpenKeyReadOnly']);                                  //const Args: array of const
+  finally
+    R.Free;
+  end;
 end;
 
 class function TJwWindowsVersion.GetNativeProcessorArchitecture : Cardinal;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.