"DoubleA!Zeitgeber" Zeit Erinnerung

[Darkface]

Hi DP'ler ,

ich stelle hier einmal mein Programm, den "DoubleA!Zeitgeber" oder kurz "Zeitgeber" vor!

Idee: Da ich häufiger beim Arbeiten am PC das Zeitgefühl verliere/ die Zeit vergesse, habe ich beschlossen ein Programm zu schreiben welches mir dabei hilft, dies zu Unterbinden!


[EDIT1]:

Neue Version:
Luckie:
-Globale Variablen eliminiert
-Versuch der Codeformatierung

sx2008:
-Globale Variablen zu Private Abschnitt
-Steuerelement Namen angepasst
-Vergleich mit True abgeschafft

Flips:
-Setup (und damit Deinstaller) abgeschaft

Hador:
-OpenDialog1.Execute angepasst
-installpfad umgebaut, (+neuer Name "ordnerpfad")
-->dadurch Speichern im Programmordner, wo auch immer er liegen mag

ToDo:
-Sounds in Ressourcen Datei

Funktionen:
- Zeitansage zu jeder vollen Stunde
- Soundausgabe zu jeder Virtel, Halben, Dreivirtel Stunde (einzeln An/Ab-wählbar)!
- Autostart Ein/Austrag (Registry Eintrag)
- Standard Sounds, eigene Sounds wählbar
- SysTray, startet minimiert

[Hador]

Ich habe es mir ehrlich gesagt nicht ganz duchgesehen, aber hier ein paar Anmerkungen:

Delphi-Quellcode:

OpenDialog1.Execute;
soundpfad:=OpenDialog1.FileName;
If OpenDialog1.Filename=''Then begin soundpfad:=installpfad +'\Sounds\Töne\zap_dela-dog-7593_hifi.wav'; RadioButton2.Checked:=True; end;

Besser:

Delphi-Quellcode:

if OpenDialog1.Execute then // Execute gibt True zurück, wenn erfolgreich eine Datei ausgewählt wurde
  soundpfad := OpenDialog1.FileName
else begin
  soundpfad := installpfad + '\Sounds\Töne\zap_dela-dog-7593_hifi.wav';
  RadioButton2.Checked := True;
end;

Und:

Delphi-Quellcode:

var Reg: TRegistry;
[...]
        installpfad:=ReadString('Pfad');
[...]
soundpfad:=installpfad +'\Sounds\Töne\zap_dela-dog-7593_hifi.wav';

Der Installpfad ist bei dir doch der Pfad, in dem deine Echse liegt. Warum dann das zwischenspeichern und den Umweg über die Registry? Es ist doch viel einfacher:

Delphi-Quellcode:

installpfad := ExtractFilePath(ParamStr(0)); 
// Anwendungsverzeichnis mit "\" auslesen. Alternativ ExtractFileDir ohne "\" am Ende
soundpfad := installpfad + 'Sounds\Töne\zap_dela-dog-7593_hifi.wav';

---
If CheckBox5.Checked=True Then s5:='True' Else s5:='False'; a) Niemals auf True oder False vergleichen sondern einfach
[delphi]if CheckBox.Checked then .../delphi]
b) das ganze kannst du auch so lösen:

Code:

s5 := BoolToStr(CheckBox5.Checked, True);

---

Code:

Memo1.Lines.SaveToFile(installpfad +'\Save\Settings.ini');

Vorsicht beim speichern im Programmverzeichnis. Du hast nicht immer dort Schreibrechte. Lieber unter Anwendungsdaten speichern

--
...

EDIT: Schlechtschreibung und: Wiso nimmt der unten die Delphi-Tags nicht
EDIT2: Arrg, meine c-Taste klemmt

EDIT3:
Du könntest die voreingestellten Töne übrigends auch als Ressourcen einbinden. Dann kannst du sicher sein, dass die auh nicht jmd. versehentlich verschiebt, löscht oder sonst was damit anstellt.

[Darkface]

Zitat von Luckie:

Was ist das eigentlich für ein unsichtbares Memo?

Das Memo benutze ich für das einfache einlesen und speichern der Einstellungen in die Settings.inf!

Zitat von Hador:

Der Installpfad ist bei dir doch der Pfad, in dem deine Echse liegt. Warum dann das zwischenspeichern und den Umweg über die Registry?

Das ist nicht ganz richtig, da auf dem Desktop eine zweite exe erstellt wird. Beiden exen ist es bei meiner Variante egal von wo sie gestartet werden, die Sounds werden so immer im Installationsverzeichnis gelesen!

---------------------
Das ich nicht auf True/False überprüfen soll habe ich inzwischen aufgenommen .
---------------------
Danke für den Tipp, nicht in das Programmverzeichnis zu speichern.
---------------------
Müsste mir mal ansehen wie ich Sounds in Ressource speichern kann...

[Luckie]

Zitat von Darkface:

Zitat von Luckie:

Was ist das eigentlich für ein unsichtbares Memo?

Das Memo benutze ich für das einfache einlesen und speichern der Einstellungen in die Settings.inf!

Dann kannst du auch eine StringList nehmen.

Zitat:

Das ist nicht ganz richtig, da auf dem Desktop eine zweite exe erstellt wird. Beiden exen ist es bei meiner Variante egal von wo sie gestartet werden, die Sounds werden so immer im Installationsverzeichnis gelesen!

Warum erstellst du eine zweite Exe auf dem Desktop? Was hat sie dort zu suchen? Ich will dort keine Anwendungen haben.

[Hador]

Zitat von Luckie:

[...]

Zitat von Darkface:

Das ist nicht ganz richtig, da auf dem Desktop eine zweite exe erstellt wird. Beiden exen ist es bei meiner Variante egal von wo sie gestartet werden, die Sounds werden so immer im Installationsverzeichnis gelesen!

Warum erstellst du eine zweite Exe auf dem Desktop? Was hat sie dort zu suchen? Ich will dort keine Anwendungen haben.

Da stimme ich Luckie völlig zu. Erstell doch (optional) dort eine Verknüpfung mit deiner Anwendung (wenn überhaupt - Denn dein Prgm. wird doch eh automatisch gestartet).

[Darkface]

Ok, dann werde ich das Programm demnächst nach den hier Angesprochenen Kritikpunkten anpassen. Das Programm wird übrigens nichtautomatisch automatisch gestartet, nur auf Wunsch!

[Darkface]

Neue Version, siehe Edit1 erster Post.
Muss mich als nächstes um die Sounds kümmern (müssen in Ressourcen Datei). Wie ich das anstelle weis ich noch nicht, habe noch nie mit einer Ressourcen Datei gearbeitet. Falls jemand einen guten Link zu dem Thema hat, scheut euch nicht ihn zu Posten .

Ansonsten bin ich weiterhin offen für Anregungen/Verbesserungsvorschläge/ect. ^^.

MfG Darkface