Mein erstes Projekt: Windows-Timer

[Peter Piksa]

Hallo zusammen!

Ich möchte um Delphi zu lernen, jetzt ein kleines Projekt programmieren.
Ich habe da auch schon eine Idee. Es soll nicht zu schwer und nicht zu einfach sein.

Also ich möchte ein kleines Tool programmieren, dass mir mein System zu einem bestimmten Zeitpunkt automatisch runterfährt.
Man soll wählen können zwischen den Optionen
a.) Nach xTagen xStunden xMinuten runterfahren und
b.) Um xxx Uhr herunterfahren.

Damit das Programm nicht immer einen Slot in der Taskbar einnimmt, sollte es sich noch in die Tray minimieren lassen.
Ein MouseOver soll verraten ob der Timer aktiviert ist und wie lange es noch dauert bis das System gute Nacht sagt.

Soweit so gut. Jetzt der Teil warum ich das hier im Forum poste!
Wie bereits gesagt: Mein erstes Delphi Projekt. Ich brauche also Hilfe.
(Keine Angst, ich habe keine reine Weste mehr was Programmierung angeht - Mit mir lässt sich also reden )

Würde sich jemand bereiterklären dieses Projekt mit mir durchzugehen?

Liebe Grüsse
Peter

[perle]

joa würd ich wohl machen.

[Peter Piksa]

Super!
Hast du den MSN Messenger?
(Ich hab auch ICQ, aber von hier aus kriege ich keine Verbindung... )

[perle]

ja hab ich iiirgendwann mal gehabt.....allerdings muss ich erstmal noch meine Zugangsdaten rausbekommen Ist schon lange her, dass ich dir mal gebraucht hab.

[perle]

oh hab grade gesehen dass du das mit .Net machen willst, ich fürchte da kann ich dir doch nicht helfen sorry

[Peter Piksa]

du, von mir aus kann ich das auch mit WinAPI machen.
Mir ist es gleich ob ich nun Delphi mit WinAPI oder .Net lerne.
Bist du bereit unter WinAPI mir dabei zu helfen?

[3_of_8]

Nimm einen Timer mit Interval 1000 oder 10000.

Kopiere folgende Funktion unter das {R *.dfm} in deiner Unit: http://www.dsdt.info/tipps/?id=200.

Dann klicke doppelt auf den Timer, darauf wird ein OnTimer Ereignis geschrieben. Schreibe dort rein: ExWindows(EWX_POWEROFF or EWX_FORCEIFHUNG); EDIT: Sollte dann so aussehen:

Delphi-Quellcode:

procedure Timer1OnTimer(Sender: TObject);
begin
zeit:=zeit-1     //Das ist die Zeit die vergehen soll, bis Windows runtergefahren werden soll in Sek.
if zeit<=0 then
ExWindows(EWX_POWEROFF or EWX_FORCEIFHUNG);
end;

[Orbmu2k]

Zitat von 3_of_8:

Nimm einen Timer mit Interval 1000 oder 10000.

Kopiere folgende Funktion unter das {R *.dfm} in deiner Unit: http://www.dsdt.info/tipps/?id=200.

Dann klicke doppelt auf den Timer, darauf wird ein OnTimer Ereignis geschrieben. Schreibe dort rein: ExWindows(EWX_POWEROFF or EWX_FORCEIFHUNG);

und dann am besten noch in den autostart ne veknüfung mit der exe ... nenene der 1. april lässt grüssen

[3_of_8]

Tut mir leid, ich hab mich natürlich geirrt, habs schon korrigiert, wer will schon dass der PC jede Sekunde runtergefahren wird...

[Peter Piksa]

ääh... ich habe mir ne neue Win32 anwendung ersellt und habe da jetzt ein leeres Formular.
Wie was wo muss ich denn jetzt reinkopieren??