Hi
ich habe vor längerer Zeit mal eine Sidebar programmiert. Die funktioniert auch super als ich aber jetzt die
Unit adCPUUsage eingebaut habe und diese wie im readme.txt in die onTimer-Prozedur eingebunden habe aktualisiert diese den Wert nicht mehr,während die anderen Befehle bearbeitet werden.
Zur Überprüfung habe ich die
Unit in einem anderen Programm separat getestet wo sie auch einwandfrei funktioniert
Delphi-Quellcode:
procedure TForm5.Timer3Timer(Sender: TObject);
var w:integer;
begin
for w:=0 to GetCPUCount-1 do // Show data for each processor
begin
label7.caption:=Format('%5.2f %%',[GetCPUUsage(w)*100]);
progressbar3.Position:=round(strtofloat(copy(label7.caption,0,pos('%',label7.caption)-1)));
end;
end;