Einzelnen Beitrag anzeigen

BlueLiquidCell

Registriert seit: 29. Jun 2010
63 Beiträge
 
Delphi 2 Desktop
 
#1

Befehl immer wieder ausführen ohne CPU belastung

  Alt 29. Jun 2010, 14:03
Hallo
Ich schreibe immoment ein Programm das einen Befehl immer wieder ausführen soll. Es soll ein anderes Programm immer im Vordergrund halten. Klappt auch nur ist die CPU belastung relativ hoch weil ich es halt alle 50 Milisekunden wiederholen lasse. Gibt es da ne bessere variante?
Außerdem kann ich den (Sender=Butto2) nicht in die while Schleife direkt setzen, warum geht das nicht?

Code:

Delphi-Quellcode:
var
fHandle: HWND;
i:integer;
begin
 fHandle := FindWindow('notepad', nil);
if fHandle <> 0 then
begin
i:=0;
while i=0 do
begin
if Sender = Button2 then
i:=1;
delay(50);
SetForeGroundWindow(fHandle);
    end;
  end;
end;
Danke schonmal in voraus

Geändert von mkinzler ( 5. Jul 2010 um 11:40 Uhr) Grund: Delphi-Tag eingefügt
  Mit Zitat antworten Zitat