[x0r]

Код:

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Console]
"QuickEdit"=dword:00000000

[vngreez@vk]

x0r, а можно это реализовать только для этого батника?

[x0r]

Можешь попробовать. Яхз, чисто мысля.(только не "для батника", а для "окна терминала" с опр. именем.)
В разделе реестра HKEY_CURRENT_USER\Console\ создать раздел с каким нить именем, mybatneg нопример. Получилось так:

Код:

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Console\mybatneg]
"QuickEdit"=dword:00000000

При запуске своего батнега вначале ставишь комманду имени

Код:

@echo off
@title mybatneg
rem дальше твой код.....

должно получиццо. смотри reg /?

Как-то так:

Код:

@echo off 
@title mybatneg
@reg add "HKEY_CURRENT_USER\Console\mybatneg" /v "QuickEdit" /t REG_DWORD /d 0 /f > nul
rem дальше твой код.....

[Iska]

x0r, а можно это реализовать только для этого батника? »

В общем и целом — можно.

Создайте файл DisableQuickEditConsoleMode.vb:

Код:

Module mainModule
	Declare Function GetStdHandle   Lib "kernel32" (ByVal nStdHandle As Integer) As Integer
	Declare Function GetConsoleMode Lib "kernel32" (ByVal hConsoleHandle As Integer, ByRef lpMode As Integer) As Integer
	Declare Function SetConsoleMode Lib "kernel32" (ByVal hConsoleHandle As Integer, ByVal dwMode As Integer) As Integer

	Public Const STD_INPUT_HANDLE As Integer = -10&

	Sub Main()
		Dim hConsole As Integer
		Dim iMode As Integer
		Dim bSuccess As Integer

		hConsole = GetStdHandle(STD_INPUT_HANDLE)
		bSuccess = GetConsoleMode(hConsole, iMode)
		bSuccess = SetConsoleMode(hConsole, iMode And Not &H20)
	End Sub
End Module

Скомпилируйте его посредством:

Код:

C:\Windows\Microsoft.NET\Framework\v2.0.50727\vbc.exe "C:\Мои проекты\0058\DisableQuickEditConsoleMode.vb" /target:exe /nologo /verbose

где: «C:\Windows\Microsoft.NET\Framework\v2.0.50727\vbc.exe» — Ваш путь к компилятору Visual Basic Compilier, а «C:\Мои проекты\0058\DisableQuickEditConsoleMode.vb» — Ваш путь к созданному файлу DisableQuickEditConsoleMode.vb. На выходе Вы должны получить файл DisableQuickEditConsoleMode.exe, который должен быть вызван в Вашем пакетном файле для сброса режима QuickEdit. Для работы ему будет требоваться установленная версия .Net FrameWork не ниже той, компилятор которой Вы использовали.

[Iska]

Как-то так: »

«Как-то так» как раз не получится. Только так, как Вы указали выше — сначала импорт в реестр, затем запуск на исполнение пакетного файла. Когда пакетный файл уже работает — новое значение параметра в реестре на него не повлияет, ибо значение считывается из реестра и используется при задании свойства конкретного окна консоли при создании процесса.

[vngreez@vk]

Iska, скомпилировал. Вызываю... ноль эмоций
сделал так:
@echo off
DisableQuickEditConsoleMode.exe
....

[Iska]

Создаём пакетный файл:

0001.cmd

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

pause
"C:\Мои проекты\0058\DisableQuickEditConsoleMode.exe"
pause

endlocal
exit /b 0

Запускаем, останавливаемся на первой паузе, смотрим свойства окна консоли:

Скрытый текст

Видим, что флаг QuickEdit (Быстрая вставка) установлен.

Закрываем свойства окна консоли, нажимаем любую клавишу на клавиатуре, останавливаемся на второй паузе, опять смотрим свойства окна консоли:

Скрытый текст

Видим, что флаг QuickEdit (Быстрая вставка) сброшен.

Что не так?

[vngreez@vk]

Iska, мне нужен параметр выше (Выделение мышью)
чтобы не прерывался код программы при нажатие.

[Iska]

vngreez@vk, приношу Вам свои извинения: даже не знаю, что меня так переклинило, что я начал работать с другим параметром, и даже перевод меня не смутил.

Достаточно заменить в вышеприведённом коде битовую маску с 0x20 на 0x40:

Код:

Module mainModule
	Declare Function GetStdHandle   Lib "kernel32" (ByVal nStdHandle As Integer) As Integer
	Declare Function GetConsoleMode Lib "kernel32" (ByVal hConsoleHandle As Integer, ByRef lpMode As Integer) As Integer
	Declare Function SetConsoleMode Lib "kernel32" (ByVal hConsoleHandle As Integer, ByVal dwMode As Integer) As Integer

	Public Const STD_INPUT_HANDLE As Integer = -10&

	Sub Main()
		Dim hConsole As Integer
		Dim iMode As Integer
		Dim bSuccess As Integer

		hConsole = GetStdHandle(STD_INPUT_HANDLE)
		bSuccess = GetConsoleMode(hConsole, iMode)
		bSuccess = SetConsoleMode(hConsole, iMode And Not &H40)
	End Sub
End Module