Masaüstü oto başlatma

FireMonkey ve Mobil uygulama (iOS, Android, Windows Phone) ile ilgili sorularınızı bu foruma sorabilirsiniz.
Cevapla
Kullanıcı avatarı
Dostk
Üye
Mesajlar: 144
Kayıt: 22 Ağu 2015 12:21

Masaüstü oto başlatma

Mesaj gönderen Dostk »

Selam;

Firemonkey de masaüstü bilgisayarda programın otomatik olarak çalışmasını sağlamam lazım; fakat HKey_Current_User hata alıyorum bunun sebebi ne olabilir?

Kod: Tümünü seç

procedure TForm1.Autorun(Flag: Boolean; NameParam, Path: String);
begin
  try
    if CheckBox1.IsChecked then
    begin
      Reg := TRegistry.Create;
      Reg.RootKey := HKey_Current_User;
      Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', False);
      Reg.WriteString(NameParam, Path);
    end
    else
    begin
      Reg := TRegistry.Create;
      Reg.RootKey := HKey_Current_User;
      Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', False);
      Reg.DeleteValue(NameParam);
    end;
  finally
    Reg.Free;
  end;
end;
hata kodu
[dcc32 Error] Main.pas(40): E2003 Undeclared identifier: 'HKey_Current_User'
[dcc32 Error] Main.pas(58): E2003 Undeclared identifier: 'ExeName'
[dcc32 Fatal Error] Hatirlatma.dpr(6): F2063 Could not compile used unit 'Main.pas'
Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7586
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Re: Masaüstü oto başlatma

Mesaj gönderen mussimsek »

Merhaba,

Registry unitini uses kısmına eklemeniz lazım. Yaptınız mı?

Kolay gelsin.
Kullanıcı avatarı
Dostk
Üye
Mesajlar: 144
Kayıt: 22 Ağu 2015 12:21

Re: Masaüstü oto başlatma

Mesaj gönderen Dostk »

Selam; Registry ekli
Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7586
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Re: Masaüstü oto başlatma

Mesaj gönderen mussimsek »

Kod: Tümünü seç

uses Registry, Windows
'HKey_Current_User' değişkeni Windows unitindeymiş. Şöyle ekledim ve denedim, çalıştı. uses kısmına Windows unitini de ekleyin.

Kolay gelsin.
Kullanıcı avatarı
Dostk
Üye
Mesajlar: 144
Kayıt: 22 Ağu 2015 12:21

Re: Masaüstü oto başlatma

Mesaj gönderen Dostk »

Teşekkür ederim;


İyi çalışmalar.
Cevapla