close
دانلود فیلم
فعال و غیر فعال سازی Autorn


uses
  Registry;

procedure CDSetAutoPlay(SioNo: Boolean);
var
  Reg: TRegistry;
begin
  try
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  if Reg.KeyExists('SoftwareClassesAudioCD') then
  if Reg.OpenKey('SoftwareClassesAudioCDShell', False) then
  if SioNo then Reg.WriteString('', 'play')
  else 
  Reg.WriteString('', '');
  finally
  Reg.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  {Activate AutoPlay}
  CDSetAutoPlay(True);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  {Deactivate Autoplay}
  CDSetAutoPlay(False);
end;


لینک کوتاه پست
مطالب مرتبط با پست جاری
  • نکات مهم
    1- لطفا نظر خود را با زبان فارسی بیان کنید
    2- رایتم نظرات اسپم و تبلیغی شما را تایید نمی کند
    3- لطفا نظرات شما بدون ابهام و واضح باشد
  • نام
    ایمیل (منتشر نمی‌شود) (لازم)
    وبسایت
    :):(;):D;)):X:?:P:*=((:O@};-:B/:):S
    نظر خصوصی
    مشخصات شما ذخیره شود ؟[حذف مشخصات] [شکلک ها]
    کد امنیتی
به کانال تلگرام سایت ما بپیوندید