Hi!
Als Erstes will ich sagen, dass ich ein blutiger Anfänger in Sachen Delphi bin... (noch ).
Ich hoffe daher ihr könnt mir in irgendeiner Form weiterhelfen, die ich verstehe.
Ich bin ein Programm am basteln, dass, nachdem eine eingegebene Zeit abgelaufen ist, eine vorher eingegebene Homepage aufruft. Dafür hab ich mir schon mal ein paar Sachen aus dem Internet zusammengewürfelt. Das funktioniert in einer Hinsicht schon.
Hier mein erster Versuch:
Delphi-Quellcode:
unit countdown;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, shellapi;
type
TForm1 =
class(TForm)
Button1: TButton;
EdStunden: TEdit;
LbAufgabe: TLabel;
EdMinuten: TEdit;
TiCounter: TTimer;
LbStundenMinuten: TLabel;
LbCounterSt: TLabel;
LbCounterMin: TLabel;
EdURL: TEdit;
procedure Button1Click(Sender: TObject);
procedure TiCounterTimer(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
Minuten, Stunden, Counter: real;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
Stunden := StrToFloat(EdStunden.Text);
Minuten := StrToFloat(EdMinuten.Text);
EdStunden.Color := clMedGray;
EdMinuten.color := clMedGray;
LbCounterSt.Visible := true;
LbCounterMin.Visible := true;
TiCounter.Enabled := true;
EdStunden.
ReadOnly := true;
EdStunden.
ReadOnly := true;
end;
procedure TForm1.TiCounterTimer(Sender: TObject);
begin
If EdStunden.Text = '
'
then EdStunden.Text := '
1';
If (Minuten = 0)
and (Stunden > 0)
then begin
Minuten := 60;
Stunden := Stunden -1;
end;
If (Stunden = 0)
and (Minuten = 0)
then begin
TiCounter.enabled := false;
ShellExecute(
handle,
NIL,'
http://www.t-online.de',
NIL,
NIL, SW_SHOWNORMAL);
end
else Minuten := Minuten -1;
LbCounterSt.Caption := FloatToStr (Stunden);
LbCounterMin.Caption := FloatToStr (Minuten);
end;
end.
Dieses T-Online is nur mal ein Beispiel.
So nun möchte ich dieses aber irgendwie so machen, dass sich die Adresse, die ich vorher in
EdURL eingegeben habe dann öffnet. Nur hab ich keine Ahnung wie das gehen soll (Bestimmt einfach).
Außerdem habe ich noch das Problem, dass beim Start des Programms die Aktion direkt ausgeführt wird. Das soll aber erst nach dem ablauf der Zeit geschehen.
Als Zweites hab ich noch vor, dass ich noch zwei Extraeingabefelder mache, wo ich eingeben kann, in wie viel Minutenabständen eine andere Homepage aktualisiert wird.
Ich würde mich sehr über einen Lösungsvorschlag von euch freuen!
MfG
Lexo