Dies ist ein Beispiel zum Aktivieren / Deaktivieren von Autorun CD für Windows.
Registrierung in Ihren Bedeutungen-Klausel deklarieren
Prozedur 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('SystemCurrentControlSetServicesClassCDROM') dann
beginnen
Wenn Reg.OpenKey('SystemCurrentControlSetServicesClassCDROM',FALSE) dann
beginnen
Reg.WriteBinaryData('AutoRun',DoAutoRun[AAutoRun],1);
Ende;
Ende;
Schließlich
Reg.Free;
Ende;
ShowMessage ('Ihre Einstellung Wirkung nach Neustart Windows werden.');
Ende;
Cd-Autorun deaktivieren
Cd-Autorun deaktivieren : Mehreren tausend Tipps, um Ihr Leben einfacher machen.
Dies ist ein Beispiel zum Aktivieren / Deaktivieren von Autorun CD für Windows.
Registrierung in Ihren Bedeutungen-Klausel deklarieren
Prozedur 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('SystemCurrentControlSetServicesClassCDROM') dann
beginnen
Wenn Reg.OpenKey('SystemCurrentControlSetServicesClassCDROM',FALSE) dann
beginnen
Reg.WriteBinaryData('AutoRun',DoAutoRun[AAutoRun],1);
Ende;
Ende;
Schließlich
Reg.Free;
Ende;
ShowMessage ('Ihre Einstellung Wirkung nach Neustart Windows werden.');
Ende;