J'ai ecrit ce code pour verrouiller la session windows.
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.Button2Click(Sender: TObject);
begin
 
keybd_event(VK_LMENU,0,0,0);//Enfoncer alt
keybd_event(VK_LCONTROL,0,0,0);
keybd_event(VK_DELETE,0,0,0);
keybd_event(VK_DELETE,0,KEYEVENTF_KEYUP,0);//Relacher Alt
keybd_event(VK_LCONTROL,0,KEYEVENTF_KEYUP,0);
keybd_event(VK_LMENU,0,KEYEVENTF_KEYUP,0);
keybd_event(ord('V'),0,0,0);
keybd_event(ord('V'),0,KEYEVENTF_KEYUP,0);
 
end;
Quand j'execute ce code rien ne se passe.
Y'a-t-il une erreur?
Y'-a-il une méthode plus simple?
Merci