onAppStopEnd - událost objektu PmaRoot
Popis:
Událost je vyvolána po ukončení aplikace (po události
onAppStopBegin).
Pma objekty jsou již zrušeny, nelze tedy v algoritmu události využívat jejich vlastností a metod. Algoritmus této události je posledním provedeným algoritmem aplikace.
Parametry:
pMe | (Object) Reference na PmaRoot objekt, ve kterém daná událost vzniká. |
pEvent | (Object) Reference na objekt, který popisuje informace o dané události.
Parametr pEvent zde není využit, protože tato událost nepotřebuje dodatečné informace. |
---|
Příklad1:
JavaScriptVBScriptVyber a zkopíruj do schránky
var sFile = "#app:" + Pm.AppName + "_RtStop.log";
var sInfo = "AppStop: " + Pm.FormatDate(Pm.Time, 1) + "\n" + "\n";
sInfo += "-----------------------------------\n" + "Errors\n";
Pm.FileTextWrite(sFile, sInfo, "charset:utf-8;");
Pm.InfoWriteToFile("Errors", "$all", sFile, "");
sInfo = "-----------------------------------\n" + "Debug\n";
Pm.FileTextWrite(sFile, sInfo, "mode:add;");
Pm.InfoWriteToFile("Debug", "$all", sFile, "");
sInfo = "-----------------------------------\n" + "AppStopDone";
Pm.FileTextWrite(sFile, sInfo, "mode:add;");
Dim sFile, sInfo
sFile = "#app:" & Pm.AppName & "_RtStop.log"
sInfo = "AppStop: " & Pm.FormatDate(Pm.Time, 1) & vbCrLf & vbCrLf
sInfo = sInfo & "-----------------------------------" & vbCrLf & "Errors" & vbCrLf
Pm.FileTextWrite(sFile, sInfo, "charset:utf-8;")
Pm.InfoWriteToFile("Errors", "$all", sFile, "")
sInfo = "-----------------------------------" & vbCrLf & "Debug" & vbCrLf
Pm.FileTextWrite(sFile, sInfo, "mode:add;")
Pm.InfoWriteToFile("Debug", "$all", sFile, "")
sInfo = "-----------------------------------" & vbCrLf & "AppStopDone"
Pm.FileTextWrite sFile, sInfo, "mode:add;"
Příklad2:
Opakované spuštění této aplikace pomocí nástroje
RunLater:
JavaScriptVBScriptVyber a zkopíruj do schránky
Pm.ShellExecute("", "c:/Promotic/Tools/RunLater/RunLater", "/t=10 /f=C:/Promotic/Pm90031/Bin32/PromoticRt32.exe /p=" + Pm.AppFullName + ".pra", "", 1);
Pm.ShellExecute "", "c:/Promotic/Tools/RunLater/RunLater", "/t=10 /f=C:/Promotic/Pm90031/Bin32/PromoticRt32.exe /p=" & Pm.AppFullName & ".pra", "", 1