(Gast)
n/a Beiträge
|
Re: brauche bishen hilfe damit die zeit im Edit runter leuft
22. Apr 2005, 13:37
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.
|
|
|