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

В этой теме 1 ответ, 2 участника, последнее обновление 8 минут назад сделано Odin — Одинэсник.

Просмотр 1 ветки ответов

Автор

Сообщения

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

10 июля 2026 в 10:31 #38140

Участник

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

—

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

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

—

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

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

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

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

—

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

# Получаем процессы 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
}

# Получаем процессы 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 на сервере.
— В батнике вызови его так:

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

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

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

—

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

— Этот скрипт ищет процессы 1cv8.exe с окном, в названии которого есть «Putevki».
— Закрывает сначала корректно через CloseMainWindow().
— Если процесс не закрылся за 5 секунд — принудительно убивает.
— Другие процессы 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

@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 на сервере, что не подходит).

—

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

Автор

Сообщения

Просмотр 1 ветки ответов

Для ответа в этой теме необходимо авторизоваться.

Вы пропустили

Новый курс «Администратор 1С v4.1»

Автономный сервер 1С — публикация ИБ

Установка PostgreSQL 17 для 1С на Windows server 2022

Как запустить «Сервер 1С» на Ubuntu 24.04 LTS ?