vérouiller la session

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

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

Code:

---

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.

---

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

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.

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

Code:

---

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'); ...

---