Delphi-Tip : AutoRun Application

samedi 12 novembre 2011, par bluegyn_spip

Ceci nécessite une intervention sur la Base du Registre

Il n’est pas besoin de sauvegarder l’Option démarrage auto d’un programme, puisque celle ci est déjà enregistrée dans la Base de registre (principe de non redondance)

Soit le menu

Opt_AutoRun

Il est coché si le mode est activé et décoché sinon par la fonction d’interrogation perso

Opt_AutoRun.checked := RunKey_Exists (APP_NAME) ;

A placer dans le form_Create

RunKey_Exists est développé dans la jc_REG
APP_NAME dans la JC_INI

Read_RunKey

Lit la branche :

’SOFTWARE\Microsoft\Windows\CurrentVersion\Run’

function Read_RunKey( maClef : string) : string;
BEGIN
With TRegistry.Create do Begin
  RootKey := HKEY_LOCAL_MACHINE;
 try
  OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true);
  result := ReadString( maClef );
 finally;
  Free;
 end;
End;
END;

RunKey_Exists

Teste si le nom du programme est dans la liste des autoruns

Function RunKey_Exists(maCle:string):Boolean;
Begin
result := (Read_RunKey ( maCle ) = AnsiQuotedStr(paramstr(0),#34) );
End;

App_Name

Extrait le Nom du Programme du chemin de l’exécutable

function App_Name : string;
Begin
result := ExtractFileName( ParamStr(0));
End;

Un clic sur le menu active ou désactive la coche

Opt_AUTORUN.Checked := not Opt_AUTORUN.Checked ;

Le clic active/désactive l’entrée dans la base selon l’état de la coche

if (Opt_AUTORUN.checked) then

Write_RunKey( app_name, paramstr(0) )

else

Remove_RunKey( app_name ) ;

Write_RunKey

Ecrit la clef dans la Base

procedure Write_RunKey( maClef, maValeur:string ; ShowDialog : boolean = True );
BEGIN
// Crée un accès au registre
With TRegistry.Create do Begin
 	// Définit la clef Racine
  RootKey := HKEY_LOCAL_MACHINE;
 TRY
  // Pointe ou crée la section RUN
  openKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true);
  // Teste si la clef existe déjà
  if RunKey_Exists('DOW') then exit;

  // ---- Ecrit le programme "entre guillemets" dans maClef ----
  WriteString( maClef, AnsiQuotedStr(maValeur,#34) );

  // -------------------------------------------
  if (ShowDialog) then
  MessageDLG(
  	MaClef + ' sera désormais lancé automatiquement au démarrage de Windows',
  	mtInformation,[mbOK],0);

 	FINALLY;
  Free;
	END; // try
End;
END;

Remove_RunKey

Efface la clef de démarrage

procedure Remove_RunKey(maClef:string ; ShowDialog : boolean = True );
// maValeur est inutile puisque maClef est détruite
var
  Reg: TRegistry;
  RubriqueRun : string;   // Chaine du registre ou se trouve la clef
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  RubriqueRun := 'SOFTWARE\Microsoft\Windows\CurrentVersion\Run';

Try
  // teste si la clef existe ...
  // ...Si existe => tente de supprimer l'entrée pour Rubrique
  if not Reg.OpenKey( RubriqueRun, False) then
    ShowMessage('Clé non trouvée')
  else begin
  	// --------------------------------------
    if Reg.DeleteValue(maClef) then
  	// --------------------------------------

        if (ShowDialog) then ShowMessage('Clé effacée: ' + maClef )
    else
        if (ShowDialog) then ShowMessage('Clé Non Trouvée: ' + maClef );
  end;
Finally
  Reg.CloseKey;
  Reg.Free;
  End;
end;

AU TOTAL

Tester la base de registre	Runkey_Exists
Ecrire une clef de démarrage	Write_RunKey
Supprimer la clef autorun	Remove_RunKey

Toutes les fonctions sont disponibles dans la jc_lib