CoolTrayIcon Problem

[mOzZzI]

Hallo :hi:;
ich möchte bei CoolTrayIcon einen Hint dazu machen...
Mein Problem ist ich möchte das er "CPU Auslastung 0-100%" anzeigt...
Wie mache ich das? Ich steh auf der Leitung... :wall:

[edit1]PS: Ich habe die function CPUUsage schon in den Quellcode eingebaut...

[dahead]

irgendwie stimmt da die grammatik nicht so ganz, oder?

ich rate: willst du, dass der hint die aktuelle cpu auslastung anzeigt?

cpu auslastung
http://www.aldyn.ru/products/cpu_usage/
http://www.swissdelphicenter.ch/de/showcode.php?id=969

und dann nur noch den hint-text anpassen.

edit: sehe dein edit. was ist das result der funktion? ein string? wie wäre es mit cooltrayicon1.hint := IntToStr(GetCPUUsage) + '%'; oder ähnlich?

[mOzZzI]

Mein Result von der Funktion ist ein String...
Aber das mit IntToStr(GetCPUUsage)+'%';
will nicht klappen...ich poste mal kurz meinen Code

Delphi-Quellcode:

procedure TForm1.CoolTrayIcon11MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Form1.CoolTrayIcon11.Hint:=IntToStr(GetCPUUsage)+'%'; //Fehler!! Nicht genügend wirkliche Parameter
end;

Hoffe ihr könnt mir helfen

[dahead]

da erwartet wohl GetCPUUsage noch einen parameter, oder?
wie sieht der kopf der funktion aus?

[mOzZzI]

Hab grad gsehen das meine funktion auf einmal verschwunden ist...
Aber die GetCPUUsage in meinen eigentlichen Programm geht...
Doch ich möchte, wie oben genannt einen Hint mit der Anzeige von CPUUsage haben...

[dahead]

was ist denn jetzt das problem?

wie sieht der kopf der funktion GetCPUUsage aus?
oder woher hast du die funktion/unit?
was für eine funktion ist verschwunden?
wenn alles geht, wo liegt das problem?

bitte nicht nur eine oder gar keine frage beantworten!

[mOzZzI]

Also,
mein Problem ist nur das ich keinen Hint in den CoolTrayIcon mit der Anzeige von CPUUsage hinbekomme

Delphi-Quellcode:

function GetCPUUsage;

[dahead]

ich will dich echt nicht nerven, aber das kann nicht sein.

eine funktion gibt IMMER ein result zurück, sonst wäre es eine prozedur. dein posting kann also nicht stimmen.

poste doch mal den KOPF der funktion, bitte!

(hint ist vom typ string und nimmt demzufolge einen string an. ich nehme mal an das result von GetCPUUsage ist vom typ double. das kannst du bspw. via FloatToStr in einen hint-text umwandeln).

[mOzZzI]

Tut mir leid aber bei mir steht nichts anderes dort... :shock:

@dahead :=
Hat sich erledigt...nehme jetzt den Hint weg...

[dahead]

hab dir mal eine demo aus dem code von hier angehängt.

schätze, dass du diese implementierung verwendest.

[Cyberbob]

Die Kopf der Function müsste

Delphi-Quellcode:

function GetCPUUsage : Integer;

heissen.

Jetzt kannst du mit

Delphi-Quellcode:

CoolTrayIcon1.Hint := IntToStr(GetCPUUsage)+'%';

das Hint setzen.

PS: Du hast in deinem Posting CoolTrayIcon11 geschrieben. Heisst die Komponente auch so?

[mOzZzI]

Zitat:

Zitat von Cyberbob

PS: Du hast in deinem Posting CoolTrayIcon11 geschrieben. Heisst die Komponente auch so?

Des wars!! thx nochmal

[dahead]

Zitat:

Zitat von Cyberbob

Du hast in deinem Posting CoolTrayIcon11 geschrieben. Heisst die Komponente auch so?

ist mir auch aufgefallen. er hat allerdings nur von dem einen fehler geschrieben. evtl. hat er mehrere CTIs auf dem formular oder es halt umbenannt.

[mOzZzI]

Glaub ich ein bisschen OT,
es gibt jetzt eine Beta Version von diesen Programm auf
http://www.luphisoft.de/e107/download.php?view.3 :cyclops:
sry wegen OT!! :dance:

[Luckie]

Wo wir schon dabei sind:

Zitat:

Microsoft Windows XP Professional Service Pack 2 (Build 2600)
Microsoft Windows XP Professional Service Pack 2 (Build 2600)
Microsoft Windows XP Professional Service Pack 2 (Build 2600)
Microsoft Windows XP Professional Service Pack 2 (Build 2600)
Microsoft Windows XP Professional Service Pack 2 (Build 2600)
Microsoft Windows XP Professional Service Pack 2 (Build 2600)
Microsoft Windows XP Professional Service Pack 2 (Build 2600)
Microsoft Windows XP Professional Service Pack 2 (Build 2600)
Microsoft Windows XP Professional Service Pack 2 (Build 2600)
Microsoft Windows XP Professional Service Pack 2 (Build 2600)
Microsoft Windows XP Professional Service Pack 2 (Build 2600)
Microsoft Windows XP Professional Service Pack 2 (Build 2600)

Wie oft wird eigentlich das Betriebssystem in das Edit geschrieben?

Zitat:

---------------------------
Tasys
---------------------------
Geben Sie eine gültige Anzeige an...
---------------------------
OK
---------------------------

Was soll ich machen?

[mOzZzI]

Zitat:

Zitat von Luckie

Wo wir schon dabei sind:

Wie oft wird eigentlich das Betriebssystem in das Edit geschrieben?

Zitat:

---------------------------
Tasys
---------------------------
Geben Sie eine gültige Anzeige an...
---------------------------
OK
---------------------------

Was soll ich machen?

Naja auf die erste Frage naja is noch ne Beta noch nicht ganz funktionstüchtig...
Zweite Frage
Was soll ich machen?
--> Du musst die Anzeige bei CPU Auslastung auswählen...

PS: Sind RadioButtons...