Auf Desktop schreiben und löschen?
Verfasst: 23.06.2005 09:36
Hallo PBler.
Ich habe folgenden interessanten Code aufgeschnappt:
An sich, eine sehr interessante Geschichte. Aber wie lösche ich den Desktop zum neu beschriften??? Das InvalidateRect resettet der Bildschirm als wenn man F5 (neuaufbau) drückt. Ich möchte aber z.B. die CPU-Auslastung alle 1 Sekunden anzeigen lassen, das würde flackern wie blöd.
Hat jemand da eine Lösung? Oder steh ich auf der Leitung...
Ich habe folgenden interessanten Code aufgeschnappt:
Code: Alles auswählen
#wMem=0
Global Mem.l
; hier werden 1024 byte speicher reserviert
Mem = AllocateMemory(1024)
Procedure.l DesktopOutput()
PokeL(Mem, 1)
ProcedureReturn Mem
EndProcedure
Repeat
; hier kommen die Texte
StartDrawing(DesktopOutput())
Locate(780,10)
FrontColor(0,0,0)
DrawingMode(2)
DrawText("CPU: "+Str(CpuUsage())+"% ")
StopDrawing()
; delay für cpu entlastung
Delay(250)
; hier wird die escape taste geprüft
Until GetAsyncKeyState_(#VK_ESCAPE)
InvalidateRect_(0, 0, 0)
End
Hat jemand da eine Lösung? Oder steh ich auf der Leitung...