Autorun cd

Autorun cd

Autorun cd : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Dieser Artikel veranschaulicht das AutoRun ein- / ausschalten für das CD-Laufwerk zu aktivieren.
Prozedur TForm1.SetCDAutoRun(AAutoRun:Boolean);
const
DoAutoRun: array [Boolean] of Integer = (0,1);
var
Reg:TRegistry;
beginnen
versuchen Sie
Reg: = TRegistry.Create;
Reg.RootKey: = HKEY_LOCAL_MACHINE;
Wenn Reg.KeyExists('System\CurrentControlSet\Services\Class\CDROM') dann
Wenn Reg.OpenKey('System\CurrentControlSet\Services\Class\CDROM',FALSE) dann
Reg.WriteBinaryData('AutoRun',DoAutoRun[AAutoRun],1);
Schließlich
Reg.Free;
Ende;
ShowMessage (' Ihre Einstellungen werden beim nächsten Neustart von Windows wirksam.');
Ende;