Easy Tune 4
Download
After compiling just drop the project in easy tune 4 directory and voila you have a temperature reading(or something else) program!
This function works 100% TESTED!
Delphi-Quellcode:
function tform1.GetCpuTemp: cardinal;
type
LX_Get_CPUTempValue = function(pCpuTemp: Pointer): cardinal stdcall;
var
hInstDll: THandle;
Get_CPUTempValue: LX_Get_CPUTempValue;
Pfad: AnsiString;
begin
Result := 0;
Pfad := ExtractFilePath(application.ExeName) + 'w83781d.dll';
if FileExists(Pfad) then
begin
hInstDll := LoadLibrary(PChar(Pfad));
if hInstDll <> 0 then
try
Get_CPUTempValue:= GetProcAddress(hInstDll, 'LX_Get_CPUTempValue');
if Assigned(Get_CPUTempValue) then
Get_CPUTempValue(Addr(Result));
finally
FreeLibrary(hInstDll);
end;
end;
end;
But this dosent work!Please tell me whats wrong?Also if somebody can write about other functions how to call them?
Thanks!
Delphi-Quellcode:
function ismotherboard: boolean;
type
LX_IsGigaMainBoard = function(pIsGigaMainBoard: Pointer): boolean stdcall;
var
hInstDll: THandle;
IsGigaMainBoard: LX_IsGigaMainBoard;
Pfad: AnsiString;
begin
Pfad := ExtractFilePath(application.ExeName) + 'w83781d.dll';
if FileExists(Pfad) then
begin
hInstDll := LoadLibrary(PChar(Pfad));
if hInstDll <> 0 then
try
IsGigaMainBoard:= GetProcAddress(hInstDll, 'LX_IsGigaMainBoard');
if Assigned(IsGigaMainBoard) then
IsGigaMainBoard(Addr(Result));
finally
FreeLibrary(hInstDll);
end;
end;
W83781D.DLL exported functions
Delphi-Quellcode:
LX_Admin_PWD_Setting
LX_COM1Control
LX_COM2Control
LX_FloppyControl
LX_Get_CaseOpenStatus
LX_Get_CPUFanCount
LX_Get_CPUTempValue
LX_Get_PowerFanValue
LX_Get_SystemFanValue
LX_Get_VoltageCPUValue
LX_Get_VoltageP12Value
LX_Get_VoltageP33Value
LX_Get_VoltageP5Value
LX_IsGigaMainBoard
LX_IsMSIMainBoard
LX_IsQDIMainBoard
LX_ParallelControl
LX_Password_Control_Request
LX_User_PWD_Setting
W_CaseO_Clear
W_Get_Battery_Status
W_Get_Beep_Status
W_Get_CaseO_Status
W_Get_Fan1_Status
W_Get_Fan2_Status
W_Get_Fan3_Status
W_Get_FanCount
W_Get_FanLoLimit
W_Get_Status
W_Get_Temp1_Status
W_Get_Temp23_Status
W_Get_Temp2_Status
W_Get_Temp3_Status
W_Get_TempLimitValue
W_Get_TempValue
W_Get_Version
W_Get_VIDVcore
W_Get_VIDVcore1
W_Get_VIDVcore2
W_Get_VIN0_Status
W_Get_VIN1_Status
W_Get_VIN2_Status
W_Get_VIN3_Status
W_Get_VIN4_Status
W_Get_VIN5_Status
W_Get_VIN6_Status
W_Get_VIN7_Status
W_Get_VINLimitValue
W_Get_VINValue
W_hua_inp
W_hua_inpd
W_hua_inpw
W_hua_outp
W_hua_outpd
W_hua_outpw
W_IsDualCPU
W_IsGBT
W_IsHWM
W_IsITE
W_IsW83781D
W_Set_Beep_Status
W_Set_FanLoLimitValue
W_Set_TempLimitValue
W_Set_VINLimitValue
W_SMI_Test
W_Temp_RtoT
W_Temp_TtoR