Utiliser les fichiers *.cpl

Soyez le premier à donner votre avis sur cette source.

Vue 4 123 fois - Téléchargée 470 fois

Description

Un exemple de code qui montre comment utiliser les fichiers *.cpl qu'on trouve dans ..\WINDOWS\system32

Source / Exemple :


unit U_System32CPL;

{                                                
  _    _   ______   ______   ______  _       _   _____   _______    
 | |  | | | |  | | | |   \\ | |   \\ \\     //  /     \  | |----
 | |__| | | |__| | | |___|| | |___||  \\   //  ||     || |_|____
 |  __  | |  __  | | |___/  | |___/    \\_//   ||  0  ||  ------\
 | |  | | | |  | | | |      | |         | |    ||     ||  ____| |
 |_|  |_| |_|  |_| |_|      |_|         |_|     \_____/  |______|      

Titre: System32CPL
Auteur: H@PPyZERØ5
E-mail: happy05@programmer.net
}
interface

{ System32CPL }
function System32CPL(CPL: integer): Boolean;

implementation

uses
  Windows;

{
1ére méthode : en utilisant WinExec

2ème méthode : en utilisant ShellExecute
exemple:
ShellExecute(0,nil,pchar('Control.exe'), pchar('access.cpl,,2'),
  nil, SW_SHOWNORMAL);
...
}
function System32CPL(CPL: integer): Boolean;
begin

  try
    case CPL of
      { ---------------------------------------------------------------- }
      { Options d'accessibilité }
      { ---------------------------------------------------------------- }
      { Clavier }
      1: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL access.cpl',
        SW_SHOWNORMAL);
      { Son }
      2: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL access.cpl,,2',
        SW_SHOWNORMAL);
      { Affichage }
      3: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL access.cpl,,3',
        SW_SHOWNORMAL);
      { Souris }
      4: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL access.cpl,,4',
        SW_SHOWNORMAL);
      { Général }
      5: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL access.cpl,,5',
        SW_SHOWNORMAL);

      { ---------------------------------------------------------------- }
      { Ajouter ou supprimer des programmes }
      { ---------------------------------------------------------------- }
      { Modifier ou supprimer des programmes }
      6: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL appwiz.cpl',
        SW_SHOWNORMAL);
      { Ajouter de nouveaus programmes }
      7: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL appwiz.cpl,,1',
        SW_SHOWNORMAL);
      { Ajouter ou supprimer des composants Windows }
      8: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL appwiz.cpl,,2',
        SW_SHOWNORMAL);
      { Configurer les programmes par défaut }
      9: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL appwiz.cpl,,3',
        SW_SHOWNORMAL);

      { ---------------------------------------------------------------- }
      { BDE Administrator }
      { ---------------------------------------------------------------- }
      10: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL bdeadmin.cpl',
        SW_SHOWNORMAL);

      { ---------------------------------------------------------------- }
      { Propriétés de Affichage }
      { ---------------------------------------------------------------- }
      { Thémes }
      11: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL desk.cpl',
        SW_SHOWNORMAL);
      { Bureau }
      12: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL desk.cpl,,0',
        SW_SHOWNORMAL);
      { Ecran de veille }
      13: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL desk.cpl,,1',
        SW_SHOWNORMAL);
      { Apparence }
      14: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL desk.cpl,,2',
        SW_SHOWNORMAL);
      { Paramétres }
      15: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL desk.cpl,,3',
        SW_SHOWNORMAL);

      { ---------------------------------------------------------------- }
      { Pare-feu Windows }
      { ---------------------------------------------------------------- }
      16: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL firewall.cpl',
        SW_SHOWNORMAL);

      { ---------------------------------------------------------------- }
      { Assistant Ajout de matériel }
      { ---------------------------------------------------------------- }
      17: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL hdwwiz.cpl',
        SW_SHOWNORMAL);

      { ---------------------------------------------------------------- }
      { Propriétés de Internet }
      { ---------------------------------------------------------------- }
      { Général }
      18: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL InetCpl.cpl',
        SW_SHOWNORMAL);
      { Sécurité }
      19: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL InetCpl.cpl,,1',
        SW_SHOWNORMAL);
      { Confidentialité }
      20: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL InetCpl.cpl,,2',
        SW_SHOWNORMAL);
      { Contenu }
      21: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL InetCpl.cpl,,3',
        SW_SHOWNORMAL);
      { Connexions }
      22: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL InetCpl.cpl,,4',
        SW_SHOWNORMAL);
      { Programmes }
      23: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL InetCpl.cpl,,5',
        SW_SHOWNORMAL);
      { Avancé }
      24: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL InetCpl.cpl,,6',
        SW_SHOWNORMAL);

      { ---------------------------------------------------------------- }
      { Options régionales et linguistiques }
      { ---------------------------------------------------------------- }
      { Options régionales }
      25: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL Intl.cpl',
        SW_SHOWNORMAL);
      { Langues }
      26: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL Intl.cpl,,1',
        SW_SHOWNORMAL);
      { Options avancées }
      27: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL Intl.cpl,,2',
        SW_SHOWNORMAL);

      { ---------------------------------------------------------------- }
      { liaison sans fil }
      { ---------------------------------------------------------------- }
      { Infrarouge }
      28: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL irprops.cpl',
        SW_SHOWNORMAL);
      { Transfert d'images }
      29: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL irprops.cpl,,1',
        SW_SHOWNORMAL);
      { Matériel }
      30: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL irprops.cpl,,2',
        SW_SHOWNORMAL);

      { ---------------------------------------------------------------- }
      { Controleurs de jeu }
      { ---------------------------------------------------------------- }
      31: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL Joy.cpl',
        SW_SHOWNORMAL);

      { ---------------------------------------------------------------- }
      { Propriétés de Souris }
      { ---------------------------------------------------------------- }
      { Boutons }
      32: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL Main.cpl',
        SW_SHOWNORMAL);
      { Pointeurs }
      33: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL Main.cpl,,1',
        SW_SHOWNORMAL);
      { Options de pointeur }
      34: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL Main.cpl,,2',
        SW_SHOWNORMAL);
      { Roulette }
      35: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL Main.cpl,,3',
        SW_SHOWNORMAL);
      { Matériel }
      36: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL Main.cpl,,4',
        SW_SHOWNORMAL);

      { ---------------------------------------------------------------- }
      { Propriétés de Sons et préphériques audio }
      { ---------------------------------------------------------------- }
      { Volume }
      37: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL Mmsys.cpl',
        SW_SHOWNORMAL);
      { Sons }
      38: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL Mmsys.cpl,,1',
        SW_SHOWNORMAL);
      { Audio }
      39: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL Mmsys.cpl,,2',
        SW_SHOWNORMAL);
      { Voix }
      40: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL Mmsys.cpl,,3',
        SW_SHOWNORMAL);
      { Matériel }
      41: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL Mmsys.cpl,,4',
        SW_SHOWNORMAL);

      { ---------------------------------------------------------------- }
      { Connexions réseau }
      { ---------------------------------------------------------------- }
      42: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL ncpa.cpl',
        SW_SHOWNORMAL);

      { ---------------------------------------------------------------- }
      { Assistant Configuration réseau }
      { ---------------------------------------------------------------- }
      43: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL netsetup.cpl',
        SW_SHOWNORMAL);

      { ---------------------------------------------------------------- }
      { Comptes d'utilisateurs }
      { ---------------------------------------------------------------- }
      44: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL nusrmgr.cpl',
        SW_SHOWNORMAL);

      { ---------------------------------------------------------------- }
      { Administrateur de sources de données ODBC }
      { ---------------------------------------------------------------- }
      45: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL ODBCCP32.CPL',
        SW_SHOWNORMAL);

      { ---------------------------------------------------------------- }
      { Propriétés de Options d'alimentation }
      { ---------------------------------------------------------------- }
      46: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL powercfg.cpl',
        SW_SHOWNORMAL);

      { ---------------------------------------------------------------- }
      { Propriétés systéme }
      { ---------------------------------------------------------------- }
      { Général }
      47: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL SysDm.cpl',
        SW_SHOWNORMAL);
      { Nom de l'ordinateur }
      48: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL SysDm.cpl,,1',
        SW_SHOWNORMAL);
      { Matériel }
      49: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL SysDm.cpl,,2',
        SW_SHOWNORMAL);
      { Avancé }
      50: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL SysDm.cpl,,3',
        SW_SHOWNORMAL);
      { Restauration du systéme }
      51: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL SysDm.cpl,,4',
        SW_SHOWNORMAL);
      { Mise à jour automatiques }
      52: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL SysDm.cpl,,5',
        SW_SHOWNORMAL);
      { Utilisation à distance }
      53: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL SysDm.cpl,,6',
        SW_SHOWNORMAL);

      { ---------------------------------------------------------------- }
      { Information concernant votre emplacement }
      { ---------------------------------------------------------------- }
      54: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL Telephon.cpl',
        SW_SHOWNORMAL);

      { ---------------------------------------------------------------- }
      { Propriétés de Date et heure }
      { ---------------------------------------------------------------- }
      { Date et heure }
      55: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL TimeDate.cpl',
        SW_SHOWNORMAL);
      { Fuseau horiare }
      56: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL TimeDate.cpl,,1',
        SW_SHOWNORMAL);

      { ---------------------------------------------------------------- }
      { Centre de sécurité Windows }
      { ---------------------------------------------------------------- }
      57: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL wscui.cpl',
        SW_SHOWNORMAL);

      { Paramétres d'alerte }
      58: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL wscui.cpl,,1',
        SW_SHOWNORMAL);

      { ---------------------------------------------------------------- }
      { Mises à jour automatiques }
      { ---------------------------------------------------------------- }
      59: WinExec('RunDLL32.exe Shell32.dll,Control_RunDLL wuaucpl.cpl',
        SW_SHOWNORMAL);

    end;
    Result := true;
  except
    Result := false;
  end;
  
end;

end.

//to be continued...

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
34
Date d'inscription
mardi 1 mai 2012
Statut
Membre
Dernière intervention
7 juillet 2017

Salut,
ci aprés l'ajout de la source que je constat qu'il y a vais des sources sur les CPL (Sources en rapport avec celle ci).
je suis désolé, j'aurai du fair une recherche avant !
merci a toi yanb pour les conseilles...
Messages postés
250
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
2 décembre 2019
5
Salut,
il me semble qu'il y a déjà pas mal de source sur CS avec les CPL donc très peu d'intérêt!
Par contre coller un exemple avec "WinExec" c'est vachement limite pour moi !
Il est préférable de ne plus utiliser la fonction WinExec car obsolète, elle existe pour des raisons de compatibilité avec les versions 16 bits de Windows ! Euh...ca existe encore ? LOL
Donc quand tu met 1ere méthode avec WinExec et 2eme méthode avec ShellExecute le contraire serai le mieux, voir même à oublier WinExec !
Bonne continuation...
@+

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.