Autor: Wilfried Heyse2 (---.echostar.pl)
Datum: 04.07.16 21:55
Eigentlich kein spezielles Profan, sondern eher ein Windows Thema.
Für automatische Updates habe ich vor längerer Zeit eine Funktion in die jeweiligen
Profan-Module eingebaut, damit Sie im Fall der Fälle automatisch aktualisiert werden, wenn auf dem Server (Nas-Platte) eine neue Version vorliegt
Proc Updatepruefung
Declare Dateidatum$
Declare Dateiupdate$
Declare Update$
Update$ = Pfad$ + "Updates\"
Dateidatum$ = @GetFDate$(Programm$)
IF @FileExists(Update$+Programm$)
Dateiupdate$ = @GetFDate$(Update$+Programm$)
'hier wird geprüft, ob ein Update vorliegt
IF val(Dateidatum$) < val(Dateiupdate$)
'wenn das der Fall ist, wird nachfolgende Operation ausgeführt
'das Programm schreibt seinen Namen in Die Datei Update.txt
'vorhandene Datei löschen
IF @FileExists(Programm$)
Assign #4,"Update.txt"
Erase #4
Endif
'neu anlegen
Assign #4,"Update.txt"
Rewrite #4
Print #4,Programm$
Close #4
'--------------------------------------------
'Bei Bedarf
@Messagebox("Es liegt eine neue Programmversion vor.\nSoll das Programm jetzt auf den neuesten Stand gebracht werden?","Meldung",262148)
IF %button = 6
Run "Updater.exe"
Endif
'------------------------------------------
Endif 'IF val(Dateidatum$) < val(Dateiupdate$)
Endif 'IF @FileExists(Programm$)
Endproc
Das Programm Update.exe sieht wie folgt aus:
Declare Stand$
Declare Verzeichnis$
Verzeichnis$ = Getdir$ ("@")
Stand$ = "20.04.2012"
Declare Update$
Declare Pfad$
'Datenpfad einlesen
Assign #1,"Datenpfad.txt"
Reset #1
input #1,Pfad$
Close #1
'Name des upzudatenden Programms einlesen
Assign #1,"Update.txt"
Reset #1
input #1,Update$
Close #1
Assign #1,Update$
Erase #4
@Messagebox("Programm neu starten?","Meldung",262144)
copy Pfad$ + "Updates\\"+Update$ > Verzeichnis$+"\\"+Update$
Run Update$
Bei Windows XP hat noch alles wie gewünscht funktioniert. Seit Win7, geschweige denn Win10 verhindert Windows jedoch auf Grund von Sicherheitseinstellungen die Ausführung. Was muss ich in Windows einstellen, damit es wieder funktioniert? Ich hoffe, es kann mir jemand helfen, auch wenn es kein spezielles Profan-Problem ist.
|
|
