[FlatX007]

Вот так ток WinRarом сделал .... всё остальное в присоединённом файле

Код:

#include <Process.au3>

If FileExists(@ScriptDir & "\Rar.exe")Then

    ProcessClose("thunderbird.exe")
    If ProcessExists("thunderbird.exe") Then
        MsgBox(16,"","Программа Thunderbird запущена ... продолжение невозможно !!")
        Exit
    EndIf

    $Param = @ComputerName & "_" & @UserName & "_" & @WDAY
    $Dir_Backup = "E:\backupMail\"
    $Rar = @ProgramFilesDir & "\WinRAR\Rar.exe"
    $Dir_Thunderbird = @AppDataDir & "\Thunderbird\"

    DirCreate($Dir_Backup)
    FileCopy($Rar, @ScriptDir & "\Rar.exe")

    If FileExists($Dir_Backup & $Param & ".rar") Then FileDelete($Dir_Backup & $Param & ".rar")

    ;~ MsgBox(0,"" ,"Rar a" & " " & '"' & $Dir_Backup & $Param & '"' & " " & '"' & $Dir_Thunderbird & "*.*" & '"')
    _RunDOS("Rar a" & " " & '"' & $Dir_Backup & $Param & '"' & " " & '"' & $Dir_Thunderbird & "*.*" & '"')

    If FileExists($Dir_Backup & $Param & ".rar")Then
        MsgBox(64,"","Архивация профиля закончена")
    EndIf
        Exit
Else
    MsgBox(16,"","Ненайден файл Rar.exe ... продолжение невозможно !!")
        Exit
EndIf