求ATI GPU温度检测代码

Question

可酬: 200元人民币NVidia的已经实现。
unit NvTempU;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;function NvCplGetThermalSettings( nWindowsMonitorNumber: UINT; var dwCoreTemp: DWORD;
  var dwAmbientTemp: DWORD; var dwUpperLimit: DWORD): Boolean; cdecl; external 'nvcpl.dll';implementation{$R *.DFM}var
  DW1, DW2, DW3: DWORD;
  GetRes: Boolean;
procedure TForm1.FormCreate(Sender: TObject);
begin
  GetRes := NvCplGetThermalSettings(0, DW1, DW2, DW3);
  if not GetRes then
    Edit1.Text := '检测失败!'
  else
    Edit1.Text := IntToStr(DW1);
end;end.

Answer 1

这个估计你得问ATI厂商……很多东西都是封装在他们自己的链接库文件里面的……