Получить ответ

Мирошниченко Сергей Владимирович var X: integer;beginX := RegKeyIntParamRead('HKLM', 'Software\Microsoft\Windows\CurrentVersion\Policies\Explorer',<code class="string">'NoDriveTypeAutoRun');if X < 0 then X := 0;if (X and $20 ) > 0 thenRegKeyIntParamWrite('HKLM', 'Software\Microsoft\Windows\CurrentVersion\Policies\Explorer','NoDriveTypeAutoRun'(X and $DF));if RegKeyIntParamRead('HKLM', 'System\CurrentControlSet\Services\CDROM', 'AutoRun') = 0 thenRegKeyIntParamWrite('HKLM', 'System\CurrentControlSet\Services\CDROM', 'AutoRun', 1);end.   01.08.13

Мирошниченко Сергей Владимирович 01.08.13

Глеб Черняк от 55 p. 4.8 345 отзывов Рейтинг: 704 506 1-й в Технологиях Общаться в чате Читать ответы

Виталий от 100 p. 4.9 119 отзывов Рейтинг: 53 181 2-й в Технологиях Общаться в чате Читать ответы

Alexander от 500 p. 4.9 66 отзывов Рейтинг: 17 568 4-й в Технологиях Общаться в чате Читать ответы

Похожие вопросы