Anonymous | Login | Signup for a new account | 2019-02-16 21:46 CET |
Main | My View | View Issues | Change Log | Roadmap | Docs |
Viewing Issue Simple Details [ Jump to Notes ] | [ View Advanced ] [ Issue History ] [ Print ] | ||||||
ID | Category | Severity | Reproducibility | Date Submitted | Last Update | ||
0004533 | [JEDI VCL] 00 JVCL Components | minor | always | 2008-10-15 09:26 | 2008-10-16 00:09 | ||
Reporter | Bummisoft | View Status | public | ||||
Assigned To | obones | ||||||
Priority | normal | Resolution | fixed | ||||
Status | resolved | Product Version | 3.35 | ||||
Summary | 0004533: JvComputerInfoEx Hardwareprofile/GUID does not work with D2009 | ||||||
Description |
function TJvHardwareProfile.GetNativeType: HW_PROFILE_INFO; begin // works GetCurrentHwProfile(Result); end; { does not work 20081015 by Thomas Wassermann type GetCurrentHwProfileFunc = function(var lpHwProfileInfo: HW_PROFILE_INFO): BOOL; stdcall; var GetCurrentHwProfile: GetCurrentHwProfileFunc; LibHandle: THandle; begin FillChar(Result, SizeOf(Result), 0); // GetCurrentHwProfile is not available on all Win95's LibHandle := SafeLoadLibrary('advapi32.dll'); if LibHandle <> 0 then try @GetCurrentHwProfile := GetProcAddress(LibHandle, 'GetCurrentHwProfileA'); if Assigned(GetCurrentHwProfile) then GetCurrentHwProfile(Result); finally FreeLibrary(LibHandle); end; end; } |
||||||
Additional Information | |||||||
Tags | No tags attached. | ||||||
Attached Files | |||||||
|
Mantis 1.1.6[^] Copyright © 2000 - 2008 Mantis Group |