|
|
#1
|
||||
|
||||
Цитата:
Код:
procedure TForm1.Timer1Timer(Sender: TObject); type GetGpuTempDll = function(dwCoreTemp: Pointer): integer; stdcall; var hDll: THandle; pdwCoreTemp: Pointer; GetGpuTemperatureDll: GetGpuTempDll; begin hDll:= LoadLibrary('nvsulib.dll'); if hDll <> 0 then try GetGpuTemperatureDll := GetProcAddress(hDll, 'GetGpuTemperatureDll'); if Assigned(GetGpuTemperatureDll) then Label1.Tag:= GetGpuTemperatureDll(Addr(pdwCoreTemp)); Label1.Caption:= IntToStr(integer(pdwCoreTemp)); finally FreeLibrary(hDll); end; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! Последний раз редактировалось Alegun, 30.11.2016 в 19:43. |