Propriété d'affichage Windows

Version imprimable

16/10/2004, 04h31
Duan

Propriété d'affichage Windows

J'ai parcourru le tutoriel de Nono40 sur la fabrication d'un écran de veille...Super!!! Pour y faire suite, j'aimerais, si possible avoir le code afin d'ouvrir la boite de dialogue de windows afin de modifier les différents paramètres d'affichage; j'aimerais ouvrir cette fenêtre directement dans une fenêtre, disons un bouton. Il y a la fenêtre d'arrière plan, écran de veille, Apparence ect, j'aimerais pouvoir arriver dans chacun de ces écrans. Je vous remercie à l'avance :P
16/10/2004, 06h16
lil_jam63
Salut et bienvenue sur Developpez.com, pour ouvrir les applets du panneau de configuration tu peux utiliser ça
Code:

1 2 3 4 WinExec(PChar('rundll32.exe shell32.dll,' + 'Control_RunDLL ' + 'Desk.cpl'), SW_SHOWNORMAL);
Par contre pour le reste de ta question

Citation:

j'aimerais ouvrir cette fenêtre directement dans une fenêtre, disons un bouton

je comprend pas trop ce que tu veux, tu veux que l'applet apparaisse dans ton application??
16/10/2004, 16h56
Duan

Merci Lil_jam63. Ta réponse m'aide énormément. La formulation fenêtre dans fenêtre portait à confusion j'en convient, je voulais simplement dire que je voulais que ouvrir la propriété d'affichage à partir d'une fenêtre Delphi et le code que tu m'as apporté le fait parfaitement.

Une autre petite question si c'est pas trop de demander: Peut-on arriver directement sur un onglet différent que celle d'arrière plan; j'aimerais arriver au choix sur l'onglet Écran de veille ou Paramètres. :!:

Merci

Dans ce cas là, utilise plutot ça

Code:

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
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
  procedure Control_RunDLL(
              hwnd: THandle;
              hInst: THandle;
              CmdLine: PChar;
              CmdShow: integer
              ); stdcall; external 'Shell32.dll';
 
procedure TForm1.Button1Click(Sender: TObject);
begin
	Control_RunDLL(Application.Handle, 0, PChar('Desk.cpl,,1'), SW_SHOW); // Pour changer d'onglet, tu remplace le 1 par celui que tu veux
end;

Sachant que les onglets sont numerotés de 0 à 5 pour "Desk.cpl":
0- Onglet "Arrière plan"
1- Onglet "Ecran de veille"
2- Onglet "Apparence"
3- Onglet "Web"
4- Onglet "Effets"
5- Onglet "Paramètres"

:arrow: C'est valable pour toutes les autres applets et oublie pas le tag "Résolu" :wink: