Hmm, das wird mir zu kompliziert. Das Tut ist ja auch aus 2001.
Soll es nicht möglich sein, so einen einfachen "Dienst" (z.B. Beep jede Minute) mit D2009 und dem TService unter Windows7 komfortabel zu realisieren?
Das kann ich mir eigentlich nicht vorstellen...
NT-Service ist immer noch NT-Service, hat sich seit 2001 nichts verändert, nur die Umgebung hat sich verändert sodass bei neueren NT-Systemen evtl. etwas beachtet werden muss.
Das Beispiel ist doch ganz einfach zu kompilieren, oder ?
Schau nochmal
hier rein, das ist das gleiche.
Ein einfacher Dienst und Beep kannst du auch so machen:
Delphi-Quellcode:
PROCEDURE SERVICE_MAIN;
begin
repeat
beep;
sleep(60000); //jede Minute ein beep
until stopped;
end;
BEGIN
PROG_MAIN;
END.