AutoRun Ativar ?

Question

[b:1e6ebe3dca]Sei o c�digo mais n�o sei como usalo [/b:1e6ebe3dca][b:1e6ebe3dca]Algu�m sabe como usar esse Procedure ?[/b:1e6ebe3dca][code:1:1e6ebe3dca]procedure SetCDAutoRun(AAutoRun: Boolean);// Req...

Warfighter · Answer

:arrow: sobe...

Warfighter · Answer

ningu�m sabe  :cry:...

Warfighter · Answer

sobe  8)...

Warfighter · Answer

me ajudem  :shock:...

Werlon Goulart · Answer

basta chamar a procedure SetCDAutoRun passando o par�metro True ou False...SetCDAutoRun(True); ou SetCDAutoRun(False);Grande Abra�oWerlon Goulart...

Warfighter · Answer

[quote:5ce03c81f1=�Werlon Goulart�]basta chamar a procedure SetCDAutoRun passando o par�metro True ou False...

SetCDAutoRun(True);

ou

SetCDAutoRun(False);

Grande Abra�o
Werlon Goulart[/quote:5ce03c81f1]

Muito Obrigado voc� me ajudo muito :wink:

Warfighter · Answer

Porqu� est� dando erro nessa linha ?...

Warfighter · Answer

esquici  :shock: Reg.WriteBinaryData(�AutoRun�,DoAutoRun[AAutoRun],1);...

Werlon Goulart · Answer

Posta a� a mensagem de erro ou transmite telepaticamente... he he he....T� de sacanagem.... Mas sem o erro fica complicado dizer....Werlon Goulart...

Warfighter · Answer

[quote:63f29290e7=�Werlon Goulart�]Posta a� a mensagem de erro ou transmite telepaticamente... he he he....
T� de sacanagem....
Mas sem o erro fica complicado dizer....

Werlon Goulart[/quote:63f29290e7]

VEJA

O que ser� ? :shock:

[img:63f29290e7]http://img240.imageshack.us/img240/4491/erroxt9.jpg[/img:63f29290e7]

[b:63f29290e7]Code da Unit[/b:63f29290e7]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, registry;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

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 ap�s reiniciar o computador.�); 

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SetCDAutoRun(True);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SetCDAutoRun(False);
end;

end.

Werlon Goulart · Answer

procedure SetCDAutoRun(AAutoRun:Boolean);
const DoAutoRun : array[Boolean] of Integer = (0,1);
var Reg: TRegistry;
//Criei esta var....
Aux: Integer;
begin
try
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.KeyExists(�System\CurrentControlSet\Services\Class\CDROM�) then
begin
if Reg.OpenKey(�System\CurrentControlSet\Services\Class\CDROM�,FALSE) then begin
//O erro era pq n�o pode-se passar Constantes no Lugar de Variaveis, ent�o criei e setei a variavel ai funcionoul....
Aux := DoAutoRun[AAutoRun];
Reg.WriteBinaryData(�AutoRun�, Aux,1);
//A mensagem estava no lugar errado pois iria se apresentada mesmo se a chave n�o existisse. Agora ela s� aparece se realmente for feito o processo.
ShowMessage(�Isso s� ter� efeito depois que voc� reiniciar o Windows.�);
end;
end;
finally
Reg.Free;
end;
end;

Warfighter · Answer

Muito Obrigado pela ajudaat� mais  :wink:...

F�rum AutoRun Ativar ? #349248