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