Discussion :

[ZIED]

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

[Linkin]

FAQ:

http://delphi.developpez.com/faq/?pa...errouillagewin

[ZIED]

Merci, J'ai déjà effectué une recherche sur la FAQ, mais je suis passé à côté