设置光盘autorun (2000年11月2日).txt

自己对DELPHI学习的一点体会

设置光盘AutoRun (2000年11月2日) 

本站更新  分类:   作者:srw  推荐:   阅读次数:650  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
设置光盘AutoRun 
{...}

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

{...}

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

procedure TForm1.SetCDAutoRun(AAutoRun:Boolean);
const
DoAutoRun : array[Boolean] of Integer = (0,1);
var
Reg : TRegistry;
begin
try
{ create our registry object }
Reg := TRegistry.Create;
{ set our registry root key }
Reg.RootKey := HKEY_LOCAL_MACHINE;
{ verify that our CDROM class key exists }
if Reg.KeyExists('System\CurrentControlSet\Services\Class\CDROM') then
{ try to open our CDROM class key }
if Reg.OpenKey('System\CurrentControlSet\Services\Class\CDROM',FALSE) then
{ add AutoRun to our CDROM class key }
Reg.WriteBinaryData('AutoRun',DoAutoRun[AAutoRun],1);
finally
{ free our registry object }
Reg.Free;
end;
{ showmessage that the changes will happen on reboot }
ShowMessage('Your settings will take effect on the next reboot of Windows.');
end;
{...}