Hvordan kan jeg få mit program til at starte automatisk når jeg starter min pc? magler lige det koder der tilføjer og fjerner den fra startup
procedure TForm1.CheckBox5Click(Sender: TObject);
begin
if checkbox5.Checked = true then
begin
//tilføj til startup
end;
if checkbox5.Checked =false then
begin
//fjern fra startup
end;
end;
Jeg tok meg den frihet å endre din kode litt, men jeg har lagt ved din kode også lenger ned:
procedure TForm1.CheckBox5Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
// FØRST: Legg til Registry under [b]uses[/b].
// HUSK: du må endre Reg.RootKey til enten
// HKEY_CURRENT_USER eller HKEY_LOCAL_MACHINE.
// HKEY_CURRENT_USER = Brukeren som er logget på.
// HKEY_LOCAL_MACHINE = Alle brukere.
if CheckBox5.Checked then
begin
// Legg til autorun
Reg.RootKey := {HKEY_*};
if Reg.OpenKey('SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run', False) then
begin
Reg.WriteString('Mitt program', ParamStr(0));
Reg.CloseKey;
end;
end
else
begin
// Fjern fra autorun
Reg.RootKey := {HKEY_*};
if Reg.OpenKey('SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run', False) then
begin
if Reg.ValueExists('Mitt program') then
Reg.DeleteValue('Mitt program');
Reg.CloseKey;
end;
end;
Reg.Free;
end;
Med din kode:
procedure TForm1.CheckBox5Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
// FØRST: Legg til Registry under [b]uses[/b].
// HUSK: du må endre Reg.RootKey til enten
// HKEY_CURRENT_USER eller HKEY_LOCAL_MACHINE.
// HKEY_CURRENT_USER = Brukeren som er logget på.
// HKEY_LOCAL_MACHINE = Alle brukere.
if checkbox5.Checked = true then
begin
// Legg til autorun
Reg.RootKey := {HKEY_*};
if Reg.OpenKey('SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run', False) then
begin
Reg.WriteString('Mitt program', ParamStr(0));
Reg.CloseKey;
end;
end;
if checkbox5.Checked =false then
begin
// Fjern fra autorun
Reg.RootKey := {HKEY_*};
if Reg.OpenKey('SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run', False) then
begin
if Reg.ValueExists('Mitt program') then
Reg.DeleteValue('Mitt program');
Reg.CloseKey;
end;
end;
Reg.Free;
end;
DiZpel