Schleife zum Wiederholen eines Sources

[davidwittesz]

Delphi-Quellcode:

unit Unit1;
interface

uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls,     Forms,Dialogs, ShellAPI,StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

private
    { Private-Deklarationen }
public
    { Public-Deklarationen }
end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  w : hWnd;
  e : Integer;
begin
 // Externes Programm oeffnen
   while w<>0 do begin
    ShellExecute(0, PChar ('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;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Close;
end;

end.

[edit=MrSpock]Code Tags eingefügt und Leerzeilen gelöscht[/edit]


WIE KANN ICH DEM PROGRAMM SAGEN DAS ES VON VORNE ANFANGEN SOLL?


[edit=MrSpock] Mfg, MrSpock[/edit]
[edit=sakura]Überschrift auf Kleinbuchstaben geändert. Mfg, sakura[/edit]