Discussion :

[lou_delphdev]

Bonjours à toute la comunoté des développeurs.

je suis sur une application qui tourne en réseau sur la quelle je dois metre une fenetre qui s'affiche sur tout l'écran.....(tout l'écran= pas de barre des taches+ quand on appuis sur le button windows le menu démarrer ne s'affiche pas+ ont désactive le Ctrl+Alt+Supr (le gestionaire des taches)) sa tourne sur win Xp, en d'autre terme je dois blocquer l'accé au pc client pour que le contrôle revien au serveur......
Ps : je développe sur delphi6.

Merci a tous

[macumba]

je dois bloquer l'accés au pc client pour que le contrôle revien au serveur......

C'est quoi le but exactement, parce que donner le controle au serveur ne nécessite pas toute ces manipulations qui me semblent bien périlleuses.

[JustMe]

à parement c'est pour un compteur pour cyber.
pour activer désactiver le taskmanager :

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
procedure DisableCtrlAltDel;
var
  Reg                    : TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if
      Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System',
      True) then
      Reg.WriteInteger('DisableTaskMgr', 1);
  finally
    Reg.CloseKey;
    Reg.Free;
  end;
end;
 
procedure EnableCtrlAltDel;
var
  Reg                    : TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if
      Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System',
      True) then
      Reg.WriteInteger('DisableTaskMgr', 0);
  finally
    Reg.CloseKey;
    Reg.Free;
  end;
end;

pour afficher l'application en plein écran et cacher/ montrer la barre de tache :

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
procedure TForm1.FormCreate(Sender: TObject);
var
  H               : HWND;
 
begin
  try
    // Trouver le handle de la barre de taches
    H := FindWindow('Shell_TrayWnd', nil);
 
    // cacher la barre de taches
    ShowWindow(H, SW_HIDE);
  finally
    // mettre la forme sans bordure en premier plan avec les dimensions de l'écran
    with Form1 do
    begin
      BorderStyle := bsNone;
      FormStyle := fsStayOnTop;
      Left := 0;
      Top := 0;
      Height := Screen.Height;
      Width := Screen.Width;
    end;
  end;
  DisableCtrlAltDel;
end;

Tout remettre à l'ordre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  H               : HWND;
begin
    // Trouver le handle de la barre de taches
    H := FindWindow('Shell_TrayWnd', nil);
 
  // activer la barre de taches
  EnableWindow(H, True);
  // Afficher la barre de taches
  ShowWindow(H, SW_SHOW);
  EnableCtrlAltDel;
end;

[lou_delphdev]

Très bien vu "Just you"euuu pardon "Just me" ...effectivement c'est pour un Cyber compteur.

Je vous remercie pour tous ce que vous m'avez apporter comme aide, mais il reste un petit point, enfin grandement petit vu que lorsque l'utilisateur appuis sur le bouton Windows du clavier, le menu démarrer s'affiche chose qui lui permet de faire ce qu'il veut par la suite....., cmt y remédier?.
Merci d'avencence.

[Cl@udius]

Salut

Pour intercepter la touche Windows (ou Ctrl+Escape) il faut que tu mettes en place un hook clavier de bas niveau.
Fais une recherche sur ce forum tu trouveras plusieurs exemples.

@+ Claudius.

[Montor]

Regarde ici

[JustMe]

il parait qu'il faudra que tu passes par une dll pour faire ce hook clavier dans ce lien il y a un exemple simple : http://www.swissdelphicenter.ch/torr...de.php?id=1212 ou dans ce lien qui a mon avis est nettement meilleur ici

[Cl@udius]

il parait qu'il faudra que tu passes par une dll pour faire ce hook clavier ...

J'en donnais un exemple aussi ici.

@+

[mick605]

Salut

Je sais pas si ca marche, mais le plus simple serait peut être de tuer le processus explorer.exe, puis d'empecher le Ctrl Alt Suppr comme le montre JustMe. Ca t'éviterai de devoir faire ton Hook, et de devoir cacher manuellement la barre des taches. Et comme ca, ca liberera de la mémoire a ton PC.

[Andnotor]

il parait qu'il faudra que tu passes par une dll pour faire ce hook clavier

Contrairement à un hook "standard", un hook de bas niveau n'a pas besoin d'être dans une DLL. Il sera toujours exécuté dans le processus qui l'a installé (il n'y a pas d'injection)

[JustMe]

@Cl@udius Désolé cher modérateur j'aurais du bien chercher dans notre forum avant de me tourner ailleurs Edition de mon message en cours.