HKLM Başlangıca programı ekleme hatası

[carsoft]

Kod normalde çalışıyor ama denetim masından kullanıcı hesabı sadece ''hiçbir zaman uyarma'' aktifken onun haricinde
kullanıcı hesabı denetimi açıksa program çalışmayı durdurdu hatası veriyor kapanıyor.

Kod: Tümünü seç

procedure TAnaForm.AutoStarts (sBool: boolean);
var
    key: String;
    Reg: TRegistry;
begin
  key := '\Software\Microsoft\Windows\CurrentVersion\Run';
  Reg := TRegistry.Create(KEY_ALL_ACCESS OR KEY_WOW64_64KEY);
    try
      Reg.RootKey := HKEY_LOCAL_MACHINE;
      Reg.CreateKey(Key);
       if Reg.OpenKey(Key,False) then Reg.WriteString('AnaForm', Application.Exename + ' /WinStart');
    finally
      Reg.free;
    end;
  end;

[apex06]

Eğer kullanıcı Administrator yetkilerine sahip değilse Kullanıcı Hesabı Denetiminde Hiç Bir Zaman Uyarma durumunda bile olsa yine HKLM'e veri yazamazsınız. HKEY_CURRENT_USER'ı işlemleriniz için kullanabilirsiniz.