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;
    Label1: TLabel;
    Button3: TButton;



    procedure Button1Click(Sender: TObject);


    procedure Button2Click(Sender: TObject);

private
    { Private declarations }

public
{ public declarations }




end;
var
Form1: TForm1;

implementation
$R *.DFM}
begin
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;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
end.

---------------------------------------------------------------------------
jetzt geht gar nichts mehr , das programm startet nicht und es kommt auch keine fehler meldung.

------------------------------------------------------------------------

danke whitey

[edit=Luckie] Mfg, Luckie[/edit]