Advertisement
Guest User

Untitled

a guest
Jan 26th, 2015
163
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.29 KB | None | 0 0
  1. private void AutoUpdate(ref string OrgPath) {
  2. string AppPath;
  3. long Versuch;
  4. double DateLocal;
  5. double DateNet;
  6. // TODO: On Error Resume Next Warning!!!: The statement is not translatable
  7. if ((App.EXEName.Substring((App.EXEName.Length - 4)).ToLower() != ".upd")) {
  8. // Normale EXE wurde gestartet:
  9. AppPath = (App.Path + ("\\" + App.EXEName));
  10. if (Dir((AppPath + ".upd.exe")).Length) {
  11. // Aufr�umen, ggf. altes Update l�schen: *5*
  12. for (Versuch = 1; (Versuch <= 10); Versuch++) {
  13. Err.Clear;
  14. Kill;
  15. (AppPath + ".upd.exe");
  16. if ((Err.Number == 0)) {
  17. break;
  18. }
  19. Pause;
  20. 1;
  21. }
  22. }
  23. // Zeitstempel vergleichen: *1*
  24. DateLocal = FileDateTime((AppPath + ".exe"));
  25. DateNet = FileDateTime(OrgPath);
  26. if ((DateNet > DateLocal)) {
  27. Beep;
  28. // Neue Version lokal kopieren:
  29. for (Versuch = 1; (Versuch <= 10); Versuch++) {
  30. Err.Clear;
  31. FileCopy;
  32. OrgPath;
  33. (AppPath + ".upd.exe");
  34. if ((Err.Number == 0)) {
  35. break;
  36. }
  37. Pause;
  38. 1;
  39. }
  40. if (Err.Number) {
  41. // Wiederholter Fehler:
  42. Beep;
  43. MsgBox;
  44. (App.EXEName + " konnte nicht aktualisiert werden!");
  45. System.Windows.Forms.MessageBoxIcon.Information;
  46. }
  47. else {
  48. // Neue Version erstmals starten: *2*
  49. Pause;
  50. 0.1;
  51. Shell;
  52. (AppPath + (".upd.exe " + Command));
  53. vbNormalFocus;
  54. }
  55. // Neue Version erstmals gestartet:
  56. AppPath = (App.Path + ("\\"
  57. + (App.EXEName.Substring(0, (App.EXEName.Length - 4)) + ".exe")));
  58. for (Versuch = 1; (Versuch <= 10); Versuch++) {
  59. Err.Clear;
  60. FileCopy;
  61. (App.Path + ("\\"
  62. + (App.EXEName + ".exe")));
  63. AppPath;
  64. if ((Err.Number == 0)) {
  65. break;
  66. }
  67. Pause;
  68. 1;
  69. }
  70. if (Err.Number) {
  71. // Wiederholter Fehler:
  72. Beep;
  73. MsgBox;
  74. (App.EXEName + " konnte nicht aktualisiert werden!");
  75. System.Windows.Forms.MessageBoxIcon.Information;
  76. }
  77. else {
  78. // Endlich die neue Version "richtig" starten: *4*
  79. Pause;
  80. 0.1;
  81. Shell;
  82. (AppPath + (" " + Command));
  83. vbNormalFocus;
  84. }
  85. }
  86. }
  87. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement