Delphi - объектно-ориентированный язык программирования, разработанный компанией Borland в 1995 году. Он основан на языке программирования Pascal, но имеет более расширенные возможности и добавлены новые функции.
Delphi является интегрированной средой разработки (IDE), которая позволяет разрабатывать программное обеспечение для различных платформ, включая Windows, macOS, Android и iOS. Delphi достигает многоплатформенности с помощью...
procedureTForm1.SetCDAutoRun(AAutoRun: Boolean); 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
Reg.WriteBinaryData('AutoRun', DoAutoRun[AAutoRun], 1); end
finally
Reg.Free; end
; ShowMessage('Your settings will take effect on the next reboot of Windows.'); end
;