Zitat von
kurtm1:
Braucht man das Registry zeugs wirklich? wenn ich das auchg noch enferne bekomme ich dauernd Fehlermeldungen. Ist doch eigentlich unnötig
Okay ich habe jetzt mal so ziemlich alle unnötigen Sachen wegeräumt.
Hihi, dann ist es wohl nötig. Nein, im Ernst: Es sollte folgendes übrig bleiben:
Delphi-Quellcode:
procedure THardwareMon.ReadSettings;
begin
Fan1L.Caption:='Chassis Fan:';
Fan2L.Caption:='CPU Fan:';
Fan3L.Caption:='Power Fan:';
Temp1L.Caption:='MB Temperature:';
Temp2L.Caption:='CPU Temperature:';
Temp3L.Caption:='Power Temp.:';
Address:=$290;
UpdInterval:=10;
HardwareMon.Timer.Interval:=10000;
UpdEnabledM.Checked:=True;
with AlarmEnabled do
begin
VCore:=False;
V33:=False;
V5:=False;
V12:=False;
Fan1:=False;
Fan2:=False;
Fan3:=False;
Temp1:=False;
Temp2:=False;
Temp3:=False;
end;
NormVCore:=200;
VTolerance:=10;
MinFan1:=3000;
MinFan2:=3000;
MinFan3:=3000;
MaxMB:=45;
MaxCPU:=50;
MaxPower:=45;
LogEnabled:=False;
LogFile:='';
end;
PS: Du kannst übrigens noch Registry aus der uses nehmen und die Zeile
Reg:TRegistry;