Delphi dicas

Ativa/desativa o autorun do pc

//Declare registry no uses



procedure AutoRun(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('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;

por : Mauricio Magalhães