terça-feira, 29 de setembro de 2009

Habilita o auto-run do cd

Procedure SetCDAutoRun(AAutoRun:Boolean);
// Requer a Registry declarada na clausua 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;

Nenhum comentário:

Postar um comentário