Je l'utilise, mais ça ne marche pas !Citation:
Envoyé par edam
Voici mon test avec NotePad :
Code:
1
2
3
4
5
6
7
8
9 procedure TForm1.Button1Click(Sender: TObject); var hPad : HWND; begin hPad := FindWindow('Notepad', nil); SetForegroundWindow(hPad); sleep(500); keybd_event(41, 0, 0, 0); keybd_event(41, 0, KEYEVENTF_KEYUP, 0); end;