LANCEMENT D'UNE APPLI À CHAQUE DÉMARRAGE EN UTILISANT LA BDR - EXEMPLE
michelroc
Messages postés
84
Date d'inscription
lundi 19 mai 2003
Statut
Membre
Dernière intervention
2 janvier 2010
-
8 janv. 2006 à 13:55
michelroc Messages postés 84 Date d'inscription lundi 19 mai 2003 Statut Membre Dernière intervention 2 janvier 2010 - 8 janv. 2006 à 13:55
michelroc Messages postés 84 Date d'inscription lundi 19 mai 2003 Statut Membre Dernière intervention 2 janvier 2010 - 8 janv. 2006 à 13:55
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/23949-lancement-d-une-appli-a-chaque-demarrage-en-utilisant-la-bdr-exemple
https://codes-sources.commentcamarche.net/source/23949-lancement-d-une-appli-a-chaque-demarrage-en-utilisant-la-bdr-exemple
8 janv. 2006 à 13:55
Je me suis servi de votre code pour lancer un fichier.
Je comprends pas pourquoi quand je lance le fichier a partir Programme\demarrage mon fichier s'execute correctement alors que si j'utilise votre fichier cela ne fonctionne pas. Voyez vous ou je fais une erreur. Merci
Votre code que j'ai Adapté
procedure TForm1.Button1Click(Sender: TObject);
var Reg: TRegistry;
Valeur : String;
Nom : String;
begin
Nom := 'Activation_Veille_Ecran';
Valeur := 'C:\Windows\System32\RM_MARCHE_MEV.EXE';
Reg := TRegistry.Create; // création de l'objet Reg
with Reg do
begin
try
RootKey := HKEY_LOCAL_MACHINE; // clé racine
if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', True) then
begin // si cette clé existe...
WriteString(Nom, Valeur); // écrire
CloseKey; // on referme, suite à OpenKey
end;
finally
Free; // libération de l'objet Reg
end;
end;
end;
La clé est bien crée :
Mon code:
program MR_MARCHE_MEV;
{$APPTYPE CONSOLE}
uses
SysUtils, ShellApi, Windows;
begin
// Temps avant mise en veille de l'cran
SystemparametersInfo(SPI_SETSCREENSAVETIMEOUT,15,nil,SPIF_SENDWININICHANGE);
// Active Ecomomiseur ecran 1 0 desactive
SystemparametersInfo(SPI_SETSCREENSAVEACTIVE,1,nil,SPIF_SENDWININICHANGE);
// Temps avant extinction Ecran 0 = Jamais
SystemparametersInfo(SPI_SETPOWEROFFTIMEOUT,30,nil,SPIF_SENDWININICHANGE);
// Active Extiction Ecran =0 desactive
SystemparametersInfo(SPI_SETPOWEROFFACTIVE,1,nil,SPIF_SENDWININICHANGE);
Halt;
end.