1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
| procedure TForm1.StopPaintClick(Sender: TObject);
begin
ImageHandle := FindWindow(nil,'Sans titre - paint'); { ou un autre titre s'il a été changé }
BringWindowToTop(ImageHandle);
keybd_event(27, 0, 0, 0); {Echap} { pour restaurer si Paint est en attente d'une réponse externe}
keybd_event(27, 0, 2, 0);
{ si on veut récupérer l'image dans le clipboard : }
keybd_event(17, 0, 0, 0); {Ctrl} {d'abord "Sélectionner tout" }
keybd_event(65, 0, 0, 0); {A}
keybd_event(17, 0, 2, 0);
keybd_event(65, 0, 2, 0);
keybd_event(17, 0, 0, 0); {Ctrl} { puis "Copier" }
keybd_event(67, 0, 0, 0); {C}
keybd_event(17, 0, 2, 0);
keybd_event(67, 0, 2, 0);
timer4.enabled:=true;
end;
procedure TForm1.Timer4Timer(Sender: TObject);
begin
timer4.enabled:=false;
keybd_event(164, 0, 0, 0); {Alt} { "Quiter" }
keybd_event(115, 0, 0, 0); {F4}
keybd_event(164, 0, 2, 0);
keybd_event(115, 0, 2, 0);
keybd_event(39, 0, 0, 0); {->} { passe le focus sur le bouton NON }
keybd_event(39, 0, 2, 0);
keybd_event(13, 0, 0, 0); {Return} { équivaut à cliquer sur le bouton }
keybd_event(13, 0, 2, 0);
end; |
Partager