AutoRun Ativar ?
[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]
[b:1e6ebe3dca]Alguém sabe como usar esse Procedure ?[/b:1e6ebe3dca]
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;
Warfighter
Curtidas 0
Respostas
Warfighter
20/11/2007
:arrow: sobe
GOSTEI 0
Warfighter
20/11/2007
ninguêm sabe :cry:
GOSTEI 0
Warfighter
20/11/2007
sobe 8)
GOSTEI 0
Warfighter
20/11/2007
me ajudem :shock:
GOSTEI 0
Werlon Goulart
20/11/2007
basta chamar a procedure SetCDAutoRun passando o parâmetro True ou False...
SetCDAutoRun(True);
ou
SetCDAutoRun(False);
Grande Abraço
Werlon Goulart
SetCDAutoRun(True);
ou
SetCDAutoRun(False);
Grande Abraço
Werlon Goulart
GOSTEI 0
Warfighter
20/11/2007
[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:
SetCDAutoRun(True);
ou
SetCDAutoRun(False);
Grande Abraço
Werlon Goulart[/quote:5ce03c81f1]
Muito Obrigado você me ajudo muito :wink:
GOSTEI 0
Warfighter
20/11/2007
Porquê está dando erro nessa linha ?
GOSTEI 0
Warfighter
20/11/2007
esquici :shock:
Reg.WriteBinaryData(´AutoRun´,DoAutoRun[AAutoRun],1);
Reg.WriteBinaryData(´AutoRun´,DoAutoRun[AAutoRun],1);
GOSTEI 0
Werlon Goulart
20/11/2007
Posta aí a mensagem de erro ou transmite telepaticamente... he he he....
Tô de sacanagem....
Mas sem o erro fica complicado dizer....
Werlon Goulart
Tô de sacanagem....
Mas sem o erro fica complicado dizer....
Werlon Goulart
GOSTEI 0
Warfighter
20/11/2007
[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:
[b:63f29290e7]Code da Unit[/b:63f29290e7]
Tô de sacanagem....
Mas sem o erro fica complicado dizer....
Werlon Goulart[/quote:63f29290e7]
VEJA
O que será ? :shock:
[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.GOSTEI 0
Werlon Goulart
20/11/2007
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;
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;
GOSTEI 0
Warfighter
20/11/2007
Muito Obrigado pela ajuda
até mais :wink:
até mais :wink:
GOSTEI 0