Delay abbrechen

[XXcD]

Undeclared identifer: 'StopDelay'
Komisch die Variable hab ich doch drin wieso sagt der denn dass die nicht deklariert ist.
Also mit dem global das hab ich wohl nicht wie muss ich das denn machen?

[XXcD]

Was ist denn jetzt??? Wie muss ich das machen kann mir nicht einer genau erklären wie ich das machen muss?

[inherited]

Pushen ist erst nach 24 stunden erlaubt :warn:
Ohne Quelltext können wir dir leider nicht helfen :roll:

[XXcD]

Ok hier ist der quelltext ich brauch nur den stopdelay rein:

Zitat:

unit Unit1;

interface

uses
Windows, Messages, Shellapi, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ComCtrls, ImgList, Menus, StdCtrls, jpeg, ExtDlgs;

type
TForm1 = class(TForm)
Edit2: TEdit;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Klickomat: TTrayIcon;
Image4: TImage;
Edit4: TEdit;
Image5: TImage;
ComboBox1: TComboBox;
Edit1: TEdit;
Edit3: TEdit;
Image7: TImage;
Image8: TImage;
procedure Image4Click(Sender: TObject);
procedure Image3Click(Sender: TObject);
procedure KlickomatClick(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure delay(msec:longint);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.delay(msec:longint);
var
start,stop:longint;
begin
start := gettickcount;
repeat
stop := gettickcount;
application.processmessages;
until (stop - start ) >= msec;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
i:=0;
REPEAT

begin i++
ShellExecute(Application.Handle, 'open',
PChar('http://wow..............com'), nil, nil,


SW_ShowNormal);
delay( 1920000);
end; UNTIL i=4
end;

procedure TForm1.KlickomatClick(Sender: TObject);
begin
ShellExecute(Application.Handle, 'open',
PChar('http://wow.............com'), nil, nil,
SW_ShowNormal);

end;


end.

[inherited]

1. Benutze biutte die Delphi-Tags
2. Ohne Code-einrückung schwer zu erkennen -.-
3. i++ gibt es in delphi nicht! Benutze

Delphi-Quellcode:

inc(i);

oder

Delphi-Quellcode:

i:=i+1;

4. Meiner meinung nach kann man URL's nicht mit ShellExecute aufrufen (Lieber Browser damit oeffnen mit parameter als URL)
5. Ist es in diesem Falle unnötig Delay als procedure von TForm1 zu vereinbaren
6. Zu deinem Problem: Ich sehe da nirgens ein StopDelay. Du kannst eine Boolsche Variable nehmen und diese bei Buttonklick o.ä. auf true setzen und diese bedingung (wie oben beschrieben) bei der abbruchbedingung des Delay mit einbauen.

[himitsu]

Zitat:

4. Meiner meinung nach kann man URL's nicht mit ShellExecute aufrufen (Lieber Browser damit oeffnen mit parameter als URL)

Es ist schon möglich.
Entweder direkt (wie oben), oder als Parameter an einen Browser.

[XXcD]

ich weiß dass das mit dem boolean nicht drin ist deshalb wollte ich ja auch dass das einer in den quelltext einbaut und das wieder postet. Das wäre echt nett da ich einfach nicht weiter komme.

[inherited]

Woran schietert es denn? ;) Wer nicht probiert, lernt nichts^^

[XXcD]

Ja ich hab das schon 1000 mal probiert aber der sagt immer den error an den ich oben beschrieben habe. Der nimmt das nicht an mit der boolean variablen.

[inherited]

Dann Poste doch mal den Quelltext der NICHT funktioniert, damit wir dir helfen können :roll: