Befehl immer wieder ausführen ohne CPU belastung

[mleyen]

Wozu i?
Hmm, wie schreibt man Endlosschleifen, "while true"? Unnötig, hier ist goto gefordert.

Delphi-Quellcode:

var  fHandle: HWND;
label ComeFrom;
begin
  fHandle := FindWindow('notepad', nil);
  if fHandle <> 0 then
  begin
    if Sender<>btn1 then
      Exit;
    ComeFrom:
    Application.ProcessMessages;
    sleep(50);
    if GetForeGroundWindow <> fHandle then
      SetForeGroundWindow(fHandle);
    goto ComeFrom;
  end;

Obs performanter ohne Abfragebedingun ist?