[JVCL-Checkins] dev/JVCL3/common SetupApi.pas,1.9,1.10 - new function GetSetupApiHandle - no use loading SetupAPI dll

[Warren P. <wp...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/common
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17631/common

Modified Files:
	SetupApi.pas 
Log Message:
new function GetSetupApiHandle - no use loading SetupAPI dll twice in the same application, but SetupAPI.pas kept this stuff private.


Index: SetupApi.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/common/SetupApi.pas,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** SetupApi.pas	10 Jun 2004 07:00:29 -0000	1.9
--- SetupApi.pas	28 Jul 2004 14:07:53 -0000	1.10
***************
*** 6801,6804 ****
--- 6801,6808 ----
  procedure UnloadSetupApi;
  
+ {$IFDEF SETUPAPI_LINKONREQUEST}
+ function GetSetupApiHandle:HINST;
+ {$endif}
+ 
  implementation
  
***************
*** 6815,6818 ****
--- 6819,6829 ----
  {$ENDIF SETUPAPI_LINKONREQUEST}
  
+ {$IFDEF SETUPAPI_LINKONREQUEST}
+ function GetSetupApiHandle:HINST;
+ begin
+   result := HINST(SetupApiLib);
+ end;
+ {$endif}
+ 
  function IsSetupApiLoaded: Boolean;
  begin