Discussion :

[jakouz]

comment un prog. delphi peut envoyer à windows "ctrl+alt+suppr" pour vérouiller la session ?

[Laurent Dardenne]

Utilise la fonction LockWorkStation déclarée dans l'unité Windows

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
program Lock;
 
{$APPTYPE CONSOLE}
 
uses
  Windows;
   // Function LockWorkStation:Boolean; External 'User32.dll'; Pour D5 et <
begin
    //http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/base/lockworkstation.asp
 if Not LockWorkStation
  then Writeln('Impossible de verrouiler le poste de travail');
       // Call GetlastError pour plus d'informartion
end.

[jakouz]

je me doutais bien qu'il existait une routine dans l'API windows mais je ne l'avais pas trouvé ... Merci !

[Mac LAK]

Attention avec ce genre d'importation de fonction (importation "en dur") : c'est pas conseillé de faire ce genre de trucs sans vérifier la version de l'OS auparavant (un noyau NT est requis pour que cette fonction existe).

Sur une machine 9x, tu vas certainement déclencher une exception dès le lancement du programme, sans pouvoir réellement l'intercepter.

[Laurent Dardenne]

Remarque pertinent, bien que le lien MSDN était là pour ça.
Rapidement cela donne qq chose comme :

Code :

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

1
2
3
4
5
  // Windows 2000 et supérieure
  if Win32MajorVersion >= 5  then 
     if Not LockWorkStation then 
       Writeln('Impossible de verrouiller le poste de travail');
...