Einzelnen Beitrag anzeigen

Benutzerbild von Union
Union

Registriert seit: 18. Mär 2004
Ort: Luxembourg
3.430 Beiträge
 
Delphi 7 Enterprise
 
#2

AW: SetupDiClassNameFromGuid auf deutsch

  Alt 10. Jul 2015, 14:40
In dem Fall evtl. die Klassenbeschreibung holen:

Delphi-Quellcode:
function SetupDiClassNameFromGuid(ClassGuid: PGUID; ClassName: PChar;ClassNameSize: DWORD; RequiredSize: PDWORD): BOOL; stdcall;external 'Setupapi.dllname 'SetupDiClassNameFromGuidW';
function SetupDiGetClassDescription(ClassGuid: PGUID; ClassName: PChar;ClassNameSize: DWORD; RequiredSize: PDWORD): BOOL; stdcall;external 'Setupapi.dllname '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;
Ibi fas ubi proxima merces
sudo /Developer/Library/uninstall-devtools --mode=all
  Mit Zitat antworten Zitat