Dienst, Service oder was? (D 2009 Prof)

[kuba]

Zitat von stahli:

Ja klar, aber mir geht es auch um´s Prinzip.
Es sollte doch gehen, einen solchen Dienst zu realisieren - und das möchte ich mal testen.
Vielleicht können ja auch andere mal von dem Thread profitieren.

Hy,

probier mal den NT-Service von Assabard !!

Der funktioniert auch noch unter Vista/7, um deine Abfrage jede Stunde auszulösen verwende folgenden Code:

Delphi-Quellcode:

var
    Time   :real; 
PROCEDURE SERVICE_MAIN;
begin
  Time := Now+(StrtoTime('01:00:00'));
repeat  
  if Now > TimeToStr(Time) then
  begin
     //AKTION
  end;
  sleep(1000); //den Dienst "bremsen", sonst 100% CPU Auslastung.
until stopped;
end;

BEGIN
  PROG_MAIN;
END.

KUBA