Технологии

• Всего ответов: 2


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


август 1, 2013 г.

Мирошниченко Сергей Владимирович
175-й в
2 отзыва

август 1, 2013 г.

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