0004533: JvComputerInfoEx Hardwareprofile/GUID does not work with D2009 - Project JEDI

Project JEDI - Issue Tracker

Viewing Issue Simple Details [ Jump to Notes ]

[ View Advanced ] [ Issue History ] [ Print ]

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[^]