| Autor |
Beitrag |
henny
Beiträge: 126
|
Verfasst: Di 30.06.09 13:34
Hallo zusammen ich möchte ein Programm schreiben das im Hintegrund läuft und dem Benutzer jede Stunde mit eine MessageBox die Uhrzeit anzeigt!
Das Programm soll auf die Systemuhrzeit zugreifen!
Kann mir jemand sagen wie ich das programmieren könnte?
Danke schonmal im Vorraus
|
|
Nersgatt
 
Beiträge: 1581
Erhaltene Danke: 279
Delphi 10 Seattle Prof.
|
Verfasst: Di 30.06.09 13:36
Setze einen Timer auf ein Formular, frage alle 30 Sekunden die Uhrzeit ab, und wenn sich die Stunde geändert hat, gibst Du die Messagebox aus.
_________________ Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)
|
|
henny 
Beiträge: 126
|
Verfasst: Di 30.06.09 13:40
Und wie frage ich die Uhrzeit ab?
Und wie mache ich das das Programm im Hintergrund läuft?
|
|
Nersgatt
Beiträge: 1581
Erhaltene Danke: 279
Delphi 10 Seattle Prof.
|
Verfasst: Di 30.06.09 13:47
Und was heißt "Uhrzeit" nochmal auf Englisch?  _________________ Gruß, Jens
Zuerst ignorieren sie dich, dann lachen sie über dich, dann bekämpfen sie dich und dann gewinnst du. (Mahatma Gandhi)
|
|
jaenicke
Beiträge: 19346
Erhaltene Danke: 1754
W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Di 30.06.09 14:27
Und im Hintergrund: Fenster verstecken und nen Icon neben der Uhr in der TNA anzeigen.
|
|
ffgorcky
Beiträge: 573
WIN XP/2000 & 7Prof (Familie:Win95,Win98)
|
Verfasst: Di 30.06.09 14:45
 Nersgatt hat folgendes geschrieben  : | | Und was heißt "Uhrzeit" nochmal auf Englisch? |
Genau übersetzt:
Time oder Clock
Wie Du die Systemzeit abfragst, erfährst Du z.B. im Thread Delphi-Forum.de » Windows API » Systemzeit rausfinden?
Dann könntest Du dann dann ja - bei einer sekündlichen Timer-Abfrage - so schreiben:
  Delphi-Quelltext
1:
2:
| if FormatDateTime('mm:ss', Now)='00:00' then
ShowMessage('Es ist mal wieder eine volle Stunde rum!'); |
|
|
jaenicke
Beiträge: 19346
Erhaltene Danke: 1754
W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Di 30.06.09 15:21
So oft muss der Timer ja vielleicht gar nicht laufen. Ich würde mir eher die vorherige Stunde merken und schauen wann die nächste begonnen hat. Die Stringumwandlung ist doch überflüssig. Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| CurrentHour: Integer;
...
CurrentHour := Floor(Time * 24);
...
if Floor(Time * 24) > CurrentHour then
begin
... | Floor ist aus der Unit Math.
|
|
henny
Beiträge: 126
|
Verfasst: Di 30.06.09 18:48
Und wie mache ich das dann das das Programm im Hintergrund läuft (unten rechts neben der Uhr)?
|
|
nagel
Beiträge: 708
Win7, Ubuntu 10.10
|
Verfasst: Di 30.06.09 18:51
Hättest einfach nach  SYMBOL NEBEN DER UHR suchen können  .
Oder TNA.
|
|
jaenicke
Beiträge: 19346
Erhaltene Danke: 1754
W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Di 30.06.09 19:24
|
|
henny
Beiträge: 126
|
Verfasst: Mi 01.07.09 16:41
O.K. ich habs mir runtergeladen was muss ich jetzt machen?
|
|
jaenicke
Beiträge: 19346
Erhaltene Danke: 1754
W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Mi 01.07.09 16:44
Wenn du CoolTrayIcon meinst: Installieren bzw. bei Turbo Delphi manuell erstellen...
|
|
henny
Beiträge: 126
|
Verfasst: Mi 01.07.09 17:05
Ja und wie installiere ich CoolTrayIcon ?
|
|
elundril
Beiträge: 3747
Erhaltene Danke: 123
Windows Vista, Ubuntu
Delphi 7 PE "Codename: Aurora", Eclipse Ganymede
|
Verfasst: Mi 01.07.09 17:10
1) Cooltrayicon_d6.dpk finden
2) auf auf CoolTrayIcon_D6plus.dpk doppelt klicken
3) in delphi auf compile klicken
4) auf installieren klicken
5) spass haben mit CTI
_________________ This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.
|
|
jaenicke
Beiträge: 19346
Erhaltene Danke: 1754
W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Mi 01.07.09 17:10
Sorry, aber ich hab mittlerweile echt keine Lust mehr dir zu antworten. Du stellst immer wieder Fragen, die man relativ einfach auch selbst finden kann, auch als Anfänger. Ok, kann ja sein, dass mal jemand etwas begriffsstutziger ist, da hab ich halt trotzdem geantwortet.
Aber hier liegt eine install.txt dabei, in der das genau steht wie das geht...
Und falls du Turbo Delphi hast, dann musst du die Komponente wie gesagt manuell erstellen, da kann man keine Komponenten installieren.
|
|
Andreas L.
Beiträge: 1703
Erhaltene Danke: 25
Windows Vista / Windows 10
Delphi 2009 Pro (JVCL, DragDrop, rmKlever, ICS, EmbeddedWB, DEC, Indy)
|
Verfasst: Mi 01.07.09 17:20
Bei TurboDelphi gibt es bereits die Komponente TTrayIcon, es muss als nicht CoolTrayIcon installiert werden. Ansonsten gibts noch das hier: www.delphi-treff.de/...0SysTray%20anzeigen/
|
|
henny
Beiträge: 126
|
Verfasst: Mi 01.07.09 17:33
O.K. ich gibs zu ich war zu ..... zum installieren.
Habs jetzt aber geschafft! 
Und wie programmiere ich des ding dann?
|
|
jaenicke
Beiträge: 19346
Erhaltene Danke: 1754
W11 x64 (Chrome, Edge)
Delphi 12 Pro, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
|
Verfasst: Mi 01.07.09 17:35
Dass da eine .chm Hilfedatei dabei ist, hast du übersehen?
|
|
elundril
Beiträge: 3747
Erhaltene Danke: 123
Windows Vista, Ubuntu
Delphi 7 PE "Codename: Aurora", Eclipse Ganymede
|
Verfasst: Mi 01.07.09 17:37
bist du dir sicher das programmieren das richtige ist? Schon mal stricken oder so probiert?
Und in dem Ordner Demos (ist im gleichen Ordner wie CoolTrayIcon_D6plus.dpk) gibts schöne demos dazu, einfach mal ausführen und den quelltext ansehen.
Weiters gibts in der Delphi-Praxis ein sehr schönes tutorial zu CTI in deren ihrer Knowledgebase. Einfach mal dort hineinschauen 
lg elundril _________________ This Signature-Space is intentionally left blank.
Bei Beschwerden, bitte den Beschwerdebutton (gekennzeichnet mit PN) verwenden.
|
|
henny
Beiträge: 126
|
Verfasst: Mi 01.07.09 17:37
Sorry 
|
|
