1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
|
if cbAutoExec.Checked=true then
begin
// On définie le nom de la clé qui sera dans le registre
nomdelakey := 'ma clef';
// On définie le chemin de destination du programme
programme := Application.ExeName;
// On crée la clé dans la registre
Registre:=TRegistry.Create;
Registre.RootKey:=HKEY_CURRENT_USER;
Registre.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run\',True);
Registre.WriteString(nomdelakey,programme);
Registre.CloseKey;
Registre.Free;
end
else
begin
// On définie le nom de la clé qui sera dans le registre
nomdelakey := 'ma clef';
// On définie le chemin de destination du programme
programme := Application.ExeName;
// On crée la clé dans la registre
Registre:=TRegistry.Create;
Registre.RootKey:=HKEY_CURRENT_USER;
Registre.DeleteKey(nomdelakey);
Registre.Free;
end; |
Partager