Buscar por:

Habilitando o "autorun" para cd-rom

Código

Procedure SetCDAutoRun(AAutoRun:Boolean); 

// Requer a Registry declarada na clausula uses da unit 

const 

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

var 

Reg:TRegistry; 

begin 

try 

Reg := TRegistry.Create; 

Reg.RootKey := HKEY_LOCAL_MACHINE; 

if Reg.KeyExists('SystemCurrentControlSetServicesClassCDROM') then 

begin 

if Reg.OpenKey('SystemCurrentControlSetServicesClassCDROM',FALSE) then 

begin 

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

end; 

end; 

finally 

Reg.Free; 

end; 

ShowMessage('Suas configurações terão efeito apos reiniciar o computador.'); 

end;