Project JEDI - Issue Tracker
Mantis Bugtracker

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

- Relationships

-  Notes
(0014868)
obones (administrator)
2008-10-16 00:09

This is now fixed in SVN.
Note that dynamic linking was kept, it was just a matter of calling GetCurrentHwProfileW instead of GetCurrentHwProfileA when compiling with D2009

- Issue History
Date Modified Username Field Change
2008-10-15 09:26 Bummisoft New Issue
2008-10-16 00:09 obones Status new => resolved
2008-10-16 00:09 obones Fixed in Version => Daily / SVN
2008-10-16 00:09 obones Resolution open => fixed
2008-10-16 00:09 obones Assigned To => obones
2008-10-16 00:09 obones Note Added: 0014868


Mantis 1.1.6[^]
Copyright © 2000 - 2008 Mantis Group
Powered by Mantis Bugtracker