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;
[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'