Entwickler-Ecke :: Thema anzeigen

Sauger Chris - Sa 05.06.04 21:25
Titel: 12.00 Uhr starten

Hallo
kann man das machen das ein programm (Test.exe)
Bsp. um 12.00 Uhr startet.

Gruß

Sauger CHris (Delphi7)

Moderiert von Tino: Topic aus Sonstiges verschoben am So 06.06.2004 um 13:38

robin86 - Sa 05.06.04 21:49

Bin mir auch nich sicher, ob das vielleicht über die registry geht??

Einfacher wär es aber ein kleines Programm im hintergrund laufenzulassen, welches test.exe dann um 12.00 anstößt.

Ich glaub nicht, dass es möglich ist das Programm ohne Zugriff von außen zu starten.

Karlson - Sa 05.06.04 21:51

Jo also unter Windows Millenium (und unter 98 afaik auch) gabs ein Programm das geplante Tasks hieß. Da konnte man genau sowas einstellen. Musst mal ein bisschen danach suchen, vllt. gibts es unter xp auch noch.

matze - So 06.06.04 10:39

das haben aber nicht alle leute aktiviert. das heisst wenn du auf nummer sicher gehen willst, dann musst du es mit einer exe amchen, die im hintergrund läuft.
wenn dus nur für dich ahben willst dann mach es über die geplanten tasks.

Delete - So 06.06.04 10:53

Das sagte matze schon:

matze hat folgendes geschrieben:

das heisst wenn du auf nummer sicher gehen willst, dann musst du es mit einer exe amchen, die im hintergrund läuft.

Sauger Chris - So 06.06.04 16:22
Titel: 12.00 UHR starten

hallo
wie kann ich so eine Programm machen
(Das mit windows start starten das weiß ich wie das geht (Reg.))
und wie mache ich das mit der zeit

Gruß

Sauger Chris(Delphi7)

Karlson - So 06.06.04 16:27

Überprüfe einfach die Systemzeit...

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure uhrzeit;
var zeit : String;
begin
  zeit := timetostr(time);
  if zeit = '12:00' then          //hier musste noch ein bisschen testen, weiss nicht in welchem format die angezeit wird
    begin
      ShellExecute(0, 
               Nil, 
               PChar('C:\deinprogramm.exe'), 
               Pchar(''), 
               Pchar(''),
               SW_NORMAL);
      application.terminate; 
   end;
  end;
end.

Andreas L. - Mo 07.06.04 15:44

Karlson hat folgendes geschrieben:

Überprüfe einfach die Systemzeit...

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure uhrzeit;
var zeit : String;
begin
  zeit := timetostr(time);
  if zeit = strtotime('12:00') then          //mit strtotime gehts ;-)
    begin
      ShellExecute(0, 
               Nil, 
               PChar('C:\deinprogramm.exe'), 
               Pchar(''), 
               Pchar(''),
               SW_NORMAL);
      application.terminate; 
   end;
  end;
end.

raziel - Mo 07.06.04 16:11

onlinehome hat folgendes geschrieben:

Karlson hat folgendes geschrieben:

Überprüfe einfach die Systemzeit...

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure uhrzeit;
var zeit : String;
begin
  zeit := timetostr(time);
  if zeit = strtotime('12:00') then          //mit strtotime gehts bestimmt nicht ;-)
    begin
      {...}
    end;
  end;
end.

Delphi-Compiler hat folgendes geschrieben:

[Fehler] Unit1.pas(29): Inkompatible Typen: 'String' und 'TDateTime'

Was zu erwarten war... ;-)
Du kannst doch keinen String ("zeit") mit TDateTime vergleichen ("strtotime(zeit)")!

raziel

Sauger Chris - Mo 07.06.04 21:53
Titel: 12.00 Uhr starten

He danke für den code karlson
aber du hast bei deinem code die sec. vergessen
sonst geht es nicht.
Aber nicht schlimm ((Danke)Code)

Gruß

Sauger Chris(Delphi7)

Andreas L. - Fr 18.06.04 14:06

raziel hat folgendes geschrieben:

onlinehome hat folgendes geschrieben:

Karlson hat folgendes geschrieben:

Überprüfe einfach die Systemzeit...

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure uhrzeit;
var zeit : String;
begin
  zeit := timetostr(time);
  if zeit = strtotime('12:00') then          //mit strtotime gehts bestimmt nicht ;-)
    begin
      {...}
    end;
  end;
end.

Delphi-Compiler hat folgendes geschrieben:

[Fehler] Unit1.pas(29): Inkompatible Typen: 'String' und 'TDateTime'

Was zu erwarten war... ;-)
Du kannst doch keinen String ("zeit") mit TDateTime vergleichen ("strtotime(zeit)")!

raziel

Hupps, ich glaub da war ich ein bisschen abwesend. Sorry :autsch:

Karlson - Fr 18.06.04 15:51

Denk doch am besten mal ein bisschen nach ;)

wir wandeln die Systemzeit in einen String um
in einer IF schleife können wir natürlich nur zwei gleiche typen vergleichen, also String und String. (da wir die Zeit in einen String umgewandelt haben)

Es muss also einfach heissen:

Delphi-Quelltext

1:	if zeit = '12.00' then

raziel - Fr 18.06.04 16:26

Karlson hat folgendes geschrieben:

Delphi-Quelltext

1:	if zeit = '12.00' then

Auch nich ganz ;-)
Imho fließen in TimeToStr die Lokalen Einstellungen mit ein. Benutz lieber FormatDateTime!

raziel

max0704 - Sa 19.06.04 00:46

ja danke an alle :) also karlsons methode geht!
wisst ihr auch ob das für nen bestimmten wochentag geht? also

Zitat:

wochentag := datetostr(date);

oder irgendwie so halt???

raziel - Sa 19.06.04 11:25

:roll: nochmal: Schau dir mal die FormatDateTime an!

raziel

//edit:

MathiasSimmack hat folgendes geschrieben:

Das sagte matze schon:

matze hat folgendes geschrieben:

das heisst wenn du auf nummer sicher gehen willst, dann musst du es mit einer exe amchen, die im hintergrund läuft.

:shock: Muss ich wohl überlesen haben, sorry... *kopfkratz*

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!