Schleife zum Wiederholen eines Sources

[Luckie]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  i : Integer; 
  w : hWnd; 
  e : Integer; 
begin 
// Externes Programm oeffnen 
   while w<>0 do 
   begin 
     ShellExecute(0, 'open', 'C:\Programme\InternetExplorer\IEXPLORE.EXE', '','', SW_SHOWMIMIMIZED); 
     for i := 0 to 10 do 
     begin 
       Label1.Caption := IntToStr(i); 
       Label1.Repaint; 
       // Pause (in msec) 
       Sleep(500); 
     end; 
     // Externes Programm oeffnen 
     w := FindWindow(NIL,'about:blank - Microsoft Internet Explorer'); 
     if W<>0 then 
       PostMessage(W, wm_close, 1, 1); 
  end;
end;

Ohne Thread.