Ich wiederhole mich gerne noch einmal:
Keine gloablen Variablen und freie Funktionen/Prozeduren
Delphi-Quellcode:
Tmvideo_sync = class(TService)
procedure ServiceExecute(Sender: TService);
procedure ServiceStart(Sender: TService; var Started: Boolean);
procedure ServiceStop(Sender: TService; var Stopped: Boolean);
procedure ServiceAfterUninstall(Sender: TService);
procedure ServiceBeforeUninstall(Sender: TService);
procedure ServiceAfterInstall(Sender: TService);
private
{ Private-Deklarationen }
public
videos_dir, // Relativer Pfad
videos_neu_dir, // Relativer Pfad
mvideo_sync_homedir : String; // Absoluter Pfad zur Dienst-Executable
IniFile : TIniFile;
LogFileName : String; // Ohne Pfadangabe
IniStringList : TStringList;
hour_of_execution : Word; // Stunde, zu der das Update durchgeführt werden soll
UpdateExecuted : Boolean; // Wurde das Update durchgeführt? Dient dazu, einen weiteren Durchlauf während der "Update-Stunde" zu verhindern
function GetServiceController: TServiceController; override;
procedure Log(Msg: String);
{ Public-Deklarationen }
end;
...
procedure Tmvideo_sync.Log(Msg: String);
...