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: 142
Kayıt: 22 Ağu 2015 11:21

Masaüstü oto başlatma

Mesaj gönderen Dostk » 02 Kas 2017 12:13

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: 7432
Kayıt: 09 Haz 2003 11:26
Konum: İstanbul
İletişim:

Re: Masaüstü oto başlatma

Mesaj gönderen mussimsek » 02 Kas 2017 08:28

Merhaba,

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

Kolay gelsin.

Kullanıcı avatarı
Dostk
Üye
Mesajlar: 142
Kayıt: 22 Ağu 2015 11:21

Re: Masaüstü oto başlatma

Mesaj gönderen Dostk » 02 Kas 2017 09:55

Selam; Registry ekli

Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7432
Kayıt: 09 Haz 2003 11:26
Konum: İstanbul
İletişim:

Re: Masaüstü oto başlatma

Mesaj gönderen mussimsek » 02 Kas 2017 10:28

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: 142
Kayıt: 22 Ağu 2015 11:21

Re: Masaüstü oto başlatma

Mesaj gönderen Dostk » 02 Kas 2017 10:31

Teşekkür ederim;


İyi çalışmalar.

Cevapla