Как закрыть 1С для определенной копии без влияния на другие конфигурации?

[Odineski]

На основной проге достаточно предупреждения. Там оператор будет запускать копирование. А на копии ничего серьезного Там просмотры отчетов. И формирование одного отчета для бухгалтерии с распределением суммы затрат. Там можно закрыть в батнике. Но на сервере работают другие конфы (ЗУП,Договора, и т.д) Вот здесь нужно аккуратно

[Odin — Одинэсник]

Понял задачу — на основном ПК просто предупреждаем оператора закрыть 1С, а на копии (где только отчёты и одна конфа) можно закрыть 1С через батник, но аккуратно, чтобы не трогать другие конфигурации.

—

### Как сделать аккуратно закрытие 1С только для нужной копии?

1С запускается одним процессом 1cv8.exe, но у тебя на сервере несколько баз и конфигураций. Чтобы закрыть только нужный экземпляр 1С (копию «Putevki»), нужно закрыть именно тот процесс 1cv8.exe, который работает с этой базой.

—

### Варианты решения:

#### 1. Закрыть все процессы 1cv8.exe на сервере — НЕ подходит, т.к. есть другие конфы.

#### 2. Закрыть процесс 1cv8.exe, у которого в заголовке окна есть «Putevki» (название базы).

Для этого можно использовать PowerShell скрипт, который найдет окно с нужным заголовком и завершит процесс.

—

### Пример PowerShell скрипта для закрытия 1С с окном «Putevki»:

PowerShell

# Получаем процессы 1cv8.exe $processes = Get-Process -Name 1cv8 -ErrorAction SilentlyContinue foreach ($proc in $processes) { # Получаем заголовок окна процесса $hwnd = $proc.MainWindowHandle if ($hwnd -ne 0) { $title = (Get-ProcessWindowTitle -ProcessId $proc.Id) if ($title -like "*Putevki*") { Write-Host "Закрываю процесс 1С с окном: $title (PID: $($proc.Id))" $proc.CloseMainWindow() | Out-Null Start-Sleep -Seconds 5 if (!$proc.HasExited) { Write-Host "Принудительно завершаю процесс PID $($proc.Id)" $proc.Kill() } } } } # Функция для получения заголовка окна по PID function Get-ProcessWindowTitle { param([int]$ProcessId) Add-Type @" using System; using System.Runtime.InteropServices; public class WinAPI { [DllImport("user32.dll")] public static extern int GetWindowText(IntPtr hWnd, System.Text.StringBuilder text, int count); [DllImport("user32.dll")] public static extern bool IsWindowVisible(IntPtr hWnd); [DllImport("user32.dll")] public static extern IntPtr GetShellWindow(); [DllImport("user32.dll")] public static extern IntPtr GetWindow(IntPtr hWnd, uint uCmd); [DllImport("user32.dll")] public static extern uint GetWindowThreadProcessId(IntPtr hWnd, out uint lpdwProcessId); } "@ $sb = New-Object System.Text.StringBuilder 1024 $shellWindow = [WinAPI]::GetShellWindow() $hWnd = [IntPtr]::Zero $foundTitle = "" function EnumWindowsProc { param($hwnd, $lParam) if (-not [WinAPI]::IsWindowVisible($hwnd)) { return $true } if ($hwnd -eq $shellWindow) { return $true } [WinAPI]::GetWindowThreadProcessId($hwnd, [ref]$pid) | Out-Null if ($pid -eq $ProcessId) { [WinAPI]::GetWindowText($hwnd, $sb, $sb.Capacity) | Out-Null if ($sb.Length -gt 0) { $foundTitle = $sb.ToString() return $false } } return $true } $delegate = [System.Runtime.InteropServices.Marshal]::GetDelegateForFunctionPointer( (Add-Type -MemberDefinition @" [DllImport("user32.dll")] public static extern bool EnumWindows(EnumWindowsProc lpEnumFunc, IntPtr lParam); "@ -Name "User32" -Namespace Win32 -PassThru)::GetMethod("EnumWindows").MethodHandle.GetFunctionPointer(), [Func[IntPtr, IntPtr, bool]] ) [Win32.User32]::EnumWindows($delegate, [IntPtr]::Zero) | Out-Null return $foundTitle }

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73

# Получаем процессы 1cv8.exe $processes = Get-Process -Name 1cv8 -ErrorAction SilentlyContinue   foreach ($proc in $processes) {     # Получаем заголовок окна процесса     $hwnd = $proc.MainWindowHandle     if ($hwnd -ne 0) {         $title = (Get-ProcessWindowTitle -ProcessId $proc.Id)         if ($title -like "*Putevki*") {             Write-Host "Закрываю процесс 1С с окном: $title (PID: $($proc.Id))"             $proc.CloseMainWindow() | Out-Null             Start-Sleep -Seconds 5             if (!$proc.HasExited) {                 Write-Host "Принудительно завершаю процесс PID $($proc.Id)"                 $proc.Kill()             }         }     } }   # Функция для получения заголовка окна по PID function Get-ProcessWindowTitle {     param([int]$ProcessId)     Add-Type @"     using System;     using System.Runtime.InteropServices;     public class WinAPI {         [DllImport("user32.dll")]         public static extern int GetWindowText(IntPtr hWnd, System.Text.StringBuilder text, int count);         [DllImport("user32.dll")]         public static extern bool IsWindowVisible(IntPtr hWnd);         [DllImport("user32.dll")]         public static extern IntPtr GetShellWindow();         [DllImport("user32.dll")]         public static extern IntPtr GetWindow(IntPtr hWnd, uint uCmd);         [DllImport("user32.dll")]         public static extern uint GetWindowThreadProcessId(IntPtr hWnd, out uint lpdwProcessId);     } "@       $sb = New-Object System.Text.StringBuilder 1024     $shellWindow = [WinAPI]::GetShellWindow()     $hWnd = [IntPtr]::Zero       $foundTitle = ""       function EnumWindowsProc {         param($hwnd, $lParam)         if (-not [WinAPI]::IsWindowVisible($hwnd)) { return $true }         if ($hwnd -eq $shellWindow) { return $true }         [WinAPI]::GetWindowThreadProcessId($hwnd, [ref]$pid) | Out-Null         if ($pid -eq $ProcessId) {             [WinAPI]::GetWindowText($hwnd, $sb, $sb.Capacity) | Out-Null             if ($sb.Length -gt 0) {                 $foundTitle = $sb.ToString()                 return $false             }         }         return $true     }       $delegate = [System.Runtime.InteropServices.Marshal]::GetDelegateForFunctionPointer(         (Add-Type -MemberDefinition @"         [DllImport("user32.dll")]         public static extern bool EnumWindows(EnumWindowsProc lpEnumFunc, IntPtr lParam); "@ -Name "User32" -Namespace Win32 -PassThru)::GetMethod("EnumWindows").MethodHandle.GetFunctionPointer(),         [Func[IntPtr, IntPtr, bool]]     )       [Win32.User32]::EnumWindows($delegate, [IntPtr]::Zero) | Out-Null       return $foundTitle }

—

### Как использовать:

— Сохрани этот скрипт в файл ClosePutevki.ps1 на сервере.
— В батнике вызови его так:

1С (Код)

powershell.exe -ExecutionPolicy Bypass -File "\Server2017scriptsClosePutevki.ps1"

1	powershell.exe -ExecutionPolicy Bypass -File "\Server2017scriptsClosePutevki.ps1"

— После закрытия можно запускать копирование.

—

### Почему так?

— Этот скрипт ищет процессы 1cv8.exe с окном, в названии которого есть «Putevki».
— Закрывает сначала корректно через CloseMainWindow().
— Если процесс не закрылся за 5 секунд — принудительно убивает.
— Другие процессы 1С (ЗУП, Договора и т.п.) не трогает.

—

### В батнике общий алгоритм:

1С (Код)

@echo off chcp 1251 echo Проверьте, что 1С на основном ПК закрыта. Если нет - закройте и нажмите любую клавишу... pause >nul echo Закрываю 1С копии "Putevki" на сервере... powershell.exe -ExecutionPolicy Bypass -File "\Server2017scriptsClosePutevki.ps1" echo Копирую файл 1Cv8.1CD... copy /Y "D:Putevki1Cv8.1CD" "\Server2017Putevki1Cv8.1CD" echo Готово. pause

1 2 3 4 5 6 7 8 9 10 11 12 13 14

@echo off chcp 1251   echo Проверьте, что 1С на основном ПК закрыта. Если нет - закройте и нажмите любую клавишу... pause >nul   echo Закрываю 1С копии "Putevki" на сервере... powershell.exe -ExecutionPolicy Bypass -File "\Server2017scriptsClosePutevki.ps1"   echo Копирую файл 1Cv8.1CD... copy /Y "D:Putevki1Cv8.1CD" "\Server2017Putevki1Cv8.1CD"   echo Готово. pause

—

Если PowerShell скрипт кажется сложным, могу помочь упростить или сделать вариант на чистом батнике, но с меньшей точностью (например, закрывать все 1cv8.exe на сервере, что не подходит).

—

Рекомендую именно такой подход — он аккуратный и не трогает другие конфигурации.

[Автор]

Сообщения