SetupDiClassNameFromGuid auf deutsch

[Union]

In dem Fall evtl. die Klassenbeschreibung holen:

Delphi-Quellcode:

function SetupDiClassNameFromGuid(ClassGuid: PGUID; ClassName: PChar;ClassNameSize: DWORD; RequiredSize: PDWORD): BOOL; stdcall;external 'Setupapi.dll' name 'SetupDiClassNameFromGuidW';
function SetupDiGetClassDescription(ClassGuid: PGUID; ClassName: PChar;ClassNameSize: DWORD; RequiredSize: PDWORD): BOOL; stdcall;external 'Setupapi.dll' name 'SetupDiGetClassDescriptionW';

function GetLocName : string;
const
  // Maus
  AGUID : TGUID = '{4d36e96f-e325-11ce-bfc1-08002be10318}';
var
  LSize : DWORD;
  LClassname : PChar;
begin

  LSize := 0;
  GetMem(LClassname, 0);
  SetupDiClassNameFromGuid(@AGUID, LClassname, LSize, @LSize);
  GetMem(LClassname, LSize);
  SetupDiClassNameFromGuid(@AGUID, LClassname, LSize, @LSize);
  Result := LClassname;
  FreeMem(LClassname);

  LSize := 0;
  GetMem(LClassname, 0);
  SetupDiGetClassDescription(@AGUID, LClassname, LSize, @LSize);
  GetMem(LClassname, LSize);
  SetupDiGetClassDescription(@AGUID, LClassname, LSize, @LSize);
  Result := Result + ' - ' +LClassname;
  FreeMem(LClassname);

end;