/Delphi-AMD-SDK

AMD SDK translated for Delphi

Primary LanguagePascal

Delphi-AMD-SDK

AMD SDK translated for Delphi

Usage example:

uses adl_structures, uAmdGpu;

procedure DetectAmdCards();
var
  g: TAmdGpu;
  i, n: Integer;
  adapterInfo: LPAdapterInfo;
begin
  if not AmdCardsPresent then
    Exit;
  n := TAmdGpu.GetNumberOfAdapters();
  for i := 0 to n - 1 do
  begin
    adapterInfo := TAmdGpu.GetAdapterInfo(i);
    g := GetAmdGpuByIDX(adapterInfo.iDeviceNumber);
    if g <> nil then
      continue;
    Memo1.Lines.Add('Bus ' + IntToStr(adapterInfo.iBusNumber) + ' - ' +
      String(adapterInfo.strAdapterName));
  end;
end;