AutoRun:= Boolean;

[ReKoBaa_61]

procedure TForm1.SetCDAutoRun(AAutoRun: Boolean);

const

DoAutoRun: array[Boolean] of Integer = (0, 1);

var

Reg: TRegistry;

begin

try

Reg := TRegistry.Create;

Reg.RootKey := HKEY_LOCAL_MACHINE;

if Reg.KeyExists('System\CurrentControlSet\Services\C lass\CDROM') then

begin

if Reg.OpenKey('System\CurrentControlSet\Services\Cla ss\CDROM', False) then

Reg.WriteBinaryData('AutoRun', DoAutoRun[AAutoRun], 1);

end

finally

Reg.Free;

end;

ShowMessage('Windows tekrar başlayana kadar aktif olmaz' ');

end;