Цитата Bosika:
что бы при выводе этих сообщений, в текстовом окне, отображался соответственный значок »
|
через CMD никак, можно через VBS:
Код:

On Error Resume Next
PrgDir = "MyProgram" ' Путь относительно %ProgramFiles%
PrgExe = "yyy.exe"
PrgNew = "yyy_new.exe"
PrgOld = "yyy_old.exe"
Set objWSS = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
PrgDir = objWSS.ExpandEnvironmentStrings("%ProgramFiles%") &"\"& PrgDir
PrgExe = PrgDir &"\"& PrgExe
PrgNew = PrgDir &"\"& PrgNew
PrgOld = PrgDir &"\"& PrgOld
If (objFSO.FileExists(PrgNew) = vbFalse) Then
Call MsgBox("Обновлений программы не обнаружено!",32,"Сообщение")
Wscript.Quit
End If
If (objFSO.FileExists(PrgOld) = vbTrue ) Then objFSO.DeleteFile PrgOld
If (objFSO.FileExists(PrgOld) = vbFalse) Then objFSO.MoveFile PrgExe, PrgOld
If (objFSO.FileExists(PrgExe) = vbFalse) Then objFSO.MoveFile PrgNew, PrgExe
If (objFSO.FileExists(PrgNew) = vbTrue ) Then
Call MsgBox("Обновление программы не произведено, обратитесь к администратору!",16,"Ошибка")
Wscript.Quit
End If
Call MsgBox("Программа обновлена, для применения изменений необходим выход из программы.",48,"Предупреждение")