Discussion :

[petitcoucou31]

bonjour a tous...

Pour faire suite à mon post précèdent, Rendre Windows invisible, j'aurai besoin du même code pour "cacher" Windows 7, mais qui fonctionne sur W10.

A savoir que ma demande est un peu spéciale, car je n'ai pas Windows 10 sur mon PC et je ne peux donc rien essayer, sauf chez le client et après compilation.
donc je serai preneur d'un bout de code que je compilerai et essayerai en toute confiance chez le client.
et pas de soucis même si ça marche pas du 1er coup !!


- je voudrai cacher la barre des taches de windows10 par code. Actuellement et par configuration je la cache si la souris ne la survole pas ou si une application est ouverte.Elle est donc visible au démarrage et tant qu'aucune application n'est pas ouverte. Je voudrai donc la cacher par code en Delphi.
- petit plus et en option
- Idem pour les divers boutons s'il existe.
- Supprimer aussi le page de fermeture.

merci a tous d'avance

[Charly910]

Bonjour,

as tu exploité ceci ?

Sinon fait une petite appli de test, et je l'essayerai sur mon W10.

Dès que j'ai un peu de temps je fais le test de mon coté.

A+
Charly

PS : Sous quelle version de Delphi travailles tu ?

[Charly910]

Bonjour,

voici le code en D7 qui fonctionne bien sous W10 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ ==================================================================== }
procedure TForm1.Button3Click(Sender: TObject);
begin
  Close ;
end;
{ ==================================================================== }
procedure TForm1.Button1Click(Sender: TObject);
// Cacher la barre de tâche
var
  Tray: hWnd;
Begin
 Tray := FindWindow('Shell_TrayWnd', NIL);
 ShowWindow(Tray, SW_HIDE);
end;
{ ==================================================================== }
procedure TForm1.Button2Click(Sender: TObject);
// Restaurer la barre de tâche
var
  Tray: hWnd;
Begin
 Tray := FindWindow('Shell_TrayWnd', NIL);
 ShowWindow(Tray, SW_SHOW);
end;
{ ==================================================================== }
end.

A+
Charly

[petitcoucou31]

Merci Charly,

j'essaye cela de que possible !!

à bientôt pour le suite...