Ersten Programmaufruf feststellen?

[Jakson]

Wie kann ich feststellen ob mein Programm seit dem Windows Start bereits einmal gestartet wurde oder es der erste Start ist?

Zum Hintergrund:
Ich schreibe einen Dienst der andere Programme starten und überwachen soll.

Bei diesen Programmen soll ein verzögerter Programmstart möglich sein (Warten bis alles Geladen wurde).
Allerdings nur wenn der Rechner neu gestartet wurde.
Bei einem Stoppen und Starten des Dienstes sollte es keine Verzögerung geben.

Ich hab schon an GetTickCount gedacht doch der läuft ja über.
Mit Beschränkung von GetTickCount umgehen hab ich einen Zeitgeber der nicht überläuft aber wie lange dauert ein Windowsstart?

Ich hab schon an einen Mutex gedacht kenn mich da aber zu wenig aus.
Wenn ich einen Mutex registriere und benenne kann ich den später auch wieder finden.
Meines Wissens schließt sich aber der Mutex wenn das Programm beendet wird.

Ich brauch was das offen bleibt und das ich abfragen kann ob es vorhanden ist. Nur was?

Vielleicht hat ja von euch wer die die zündende Idee.

Danke Jakson

[himitsu]

Mutex wird gelöscht, wenn dein Service beendet wird ... bringt also nix

wie meinst du das mit dem GetTickCount (PS: das läuft erst über, wenn Windows ~48 Tage am Stück läuft)

[Uwe Raabe]

Benutze als Merker doch eine Datei. Wenn sie nicht existiert, ist es der erste Start. Falls doch, prüfe ob der Erstellungszeitpunkt älter ist als der Windows-Start, was ebenfalls auf einen ersten Start hindeutet. In jedem Fall erzeugst du die Datei am Ende neu.

Das Ganze läßt sich auch mit einem Log-File und dem letzten Zugrifszeitpunkt realisieren.

[mjustin]

Zitat:

Zitat von Jakson

Ich hab schon an GetTickCount gedacht doch der läuft ja über.

ab Vista kann GetTickCount64 benutzt werden: http://en.wikipedia.org/wiki/GetTickCount

Systemvoraussetzungen also entsprechend angeben :)

Oder - wenn es ein Dienst ist - eventuell kann man über die Service API erkennen ob es ein Systemstart oder ein manueller Start des Dienstes ist?

Viele Grüße,

[Astat]

Hallo Jakson.

• Jakson hat geschrieben.

Zitat:

Ich schreibe einen Dienst der andere Programme starten und überwachen soll.

Wenn ich dich richtig verstehe benötigst Du einen verzögerten Systemstart eines Windows Dienstes (services)
beim Erststart des Systems (Reboot)?

Willst du dies in deinem Programm nachbauen, könntest du folgendes versuchen.

Erstelle einen Eintrag in der Atomtabelle des Systems.
Dieser wird erst gelöscht wenn du das System rebootest.

Delphi-Quellcode:

GlobalAddAtom(PChar('{D1F85078-F653-4AA7-AB07-765E94EBF349}'));

GlobalFindAtom(PChar('{D1F85078-F653-4AA7-AB07-765E94EBF349}'));
  if ATOM <> 0 then showmessage('ATOM allready set!');

lg. Astat

[Jakson]

Super. :) Danke das ist genau das was ich wollte.

Soweit ich das Verstanden habe kann ich jeden beliebigen String in die GlobalAtom Tabelle einfügen.

Warum fügst du genau den ein? "{D1F85078-F653-4AA7-AB07-765E94EBF349}"
Für mich schaut das wie der Identifier eines Interfaces aus?

Gibts irgend welche Richtlinien was ich in die GlobalAtom Tabelle einfügen darf (Ausser das es unter 255 Zeichen sein soll)?

Danke Jakson

[Neutral General]

Zitat:

Zitat von Jakson

Super. :) Danke das ist genau das was ich wollte.

Soweit ich das Verstanden habe kann ich jeden beliebigen String in die GlobalAtom Tabelle einfügen.

Warum fügst du genau den ein? "{D1F85078-F653-4AA7-AB07-765E94EBF349}"
Für mich schaut das wie der Identifier eines Interfaces aus?

Gibts irgend welche Richtlinien was ich in die GlobalAtom Tabelle einfügen darf (Ausser das es unter 255 Zeichen sein soll)?

Danke Jakson

Das ist einfach nur eine systemweit eindeutige GUID. Das stellt sicher, dass es dieses Atom nicht schon gibt. Könnte ja theoretisch sein, dass wenn du dein Atom "Test" nennst ein anderes Programm sein Atom genauso genannt hat und dann funktionierts ja nichtmehr ;)

[Cicaro]

Zitat:

Zitat von Jakson

Super. :) Danke das ist genau das was ich wollte.

Wenn die Frage beantwortet ist, dann markier sie auch als beantwortet. Sie ist ja immer noch als 'offene Frage' markiert.

Ansonsten geht es auch relativ leicht mit GetTickCount(). Hier ein kleiner Pseudo-Code dazu:

Delphi-Quellcode:

// lade den Zeitpunkt des letzten Programmstartes (wenn schon 1 Mal gespeichert)
// Systemstart = Now() - GetTickCount();
// if (Systemstart > letzter Programmstart) then "Das ist der erste Programmstart seit dem Reboot"
// speichere den Zeitpunkt dieses Programmstartes

Nach etwa 48 oder 49 Tagen läuft der Timer von GetTickCount() über. Einen Rechner solange laufen lassen, das gehört schon zu einem Extremfall.

[Christian Seehase]

Zitat:

Zitat von Cicaro

Einen Rechner solange laufen lassen, das gehört schon zu einem Extremfall.

Ausser es handelt sich um einen Server, dann sollte man eher vom Normalfall ausgehen ;-)

@Jakson:
Sicherheitshalber solltest Du Dir aber eine eigene GUID generieren, und nicht die von Astat verwenden.
Einfach in der IDE [STRG]+[SHIFT]+[G] drücken.

[Jakson]

Danke nochmal

Das mit der GUID hat mir bis jetzt noch keiner erklärt bzw. es ist anscheinend so trivial das es auch nirgens in den Büchern erwähnt wird.

Aber dank WikiPedia bin ich jetzt schlauer http://de.wikipedia.org/wiki/GUID

Ich versteh zwar immer noch nicht warum das Ding 100% eindeutig ist aber wenn die das behaupten. :?

Und ja es ist für einen Server gedacht der eigentlich nie angerührt wird.
Unsere längste uptime war ca. 2 Jahre

Jakson