Base de registre

Question

Bonjour je voudrais executer un fichier a partir  de la BdR voir les 2 codes suivants.
Cela ne fonctionnne pas pourtant quand j'excute le fichier cela fonctionne. 
Le Nom et Valeur &#224; la creation de la cl&#233; sont t-ils correctent ?? 
Ou est l'erreur ?  Y a t-il  une solution.  Merci .

1 // Creation de la cle  //

procedure TForm1.Button1Click(Sender: TObject);
var Reg: TRegistry;
    Valeur : String;
    Nom : String;
begin
  Nom    := 'RM_MARCHE_MEV';
  Valeur := 'C:\Windows\System32\RM_MARCHE_MEV.EXE';

  Reg := TRegistry.Create;                        // cr&#233;ation de l'objet Reg
  with Reg do
  begin
    try
      RootKey := HKEY_LOCAL_MACHINE;              // cl&#233; racine
      if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', True) then
      begin                                       // si cette cl&#233; existe...
        WriteString(Nom, Valeur);                 // &#233;crire
        CloseKey;                                 // on referme, suite &#224; OpenKey
      end;
    finally
      Free;                                       // lib&#233;ration de l'objet Reg
    end;
  end;
end;


end.

2 /// Fichier &#224; executer

program MR_MARCHE_MEV;
 {$APPTYPE CONSOLE}
uses
  SysUtils,  ShellApi,  Windows;
begin
    // Temps avant mise en veille de l'cran
    SystemparametersInfo(SPI_SETSCREENSAVETIMEOUT,30,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,60,nil,SPIF_SENDWININICHANGE);
        // Active Extiction Ecran   =0 desactive
    SystemparametersInfo(SPI_SETPOWEROFFACTIVE,1,nil,SPIF_SENDWININICHANGE);
Halt;
end.
Michel

Cirec · Answer

Salut,
peut &#234;tre que l'erreur vient du Nom du Prog.

1 // Creation de la cle  //

  Valeur := 'C:\Windows\System32\RM_ MARCHE_MEV.EXE';

2 /// Fichier &#224; executer

program MR_MARCHE_MEV;
 {$APPTYPE CONSOLE}



@+
Cirec

Base de registre

1 réponse

Votre réponse

Discussions similaires