brauche bishen hilfe damit die zeit im Edit runter leuft

[MisterX]

Tu ich doch jetzt und ich sagte doch was ich will ok ich will das meine zeit runter läuft

Delphi-Quellcode:

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

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval:=StrtoInt(Edit2.text)*60000;
ShellExecute(Application.MainForm.Handle, nil, PChar( Edit1.Text),nil,nil, SW_SHOWMAXIMIZED);

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=True;
Timer2.Enabled:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=False;
Timer2.Enabled:=False;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
winexec('shutdown.exe -s' ,1);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if Sender = Button1 then            
     AboutBox.Caption := 'Info über ' + Application.Title         
else AboutBox.Caption := '';            
AboutBox.ShowModal;

end;

end.