(Delphi) Jak symulować wciśnięcie klawisza CTRL + V lub CTRL + C w całym systemie Windows

Z Podręcznik Administratora by OPZ SGU
Wersja z dnia 14:28, 18 lut 2018 autorstwa Adminka23 (dyskusja | edycje) (Zastępowanie tekstu - "<source lang="delphi">" na "<pre>")
(różn.) ← poprzednia wersja | przejdź do aktualnej wersji (różn.) | następna wersja → (różn.)
Przejdź do nawigacji Przejdź do wyszukiwania

Poniższy kod symuluje przyciśnięcie klawisza Ctrl+ v oraz Ctrl+c

Wykonanie tej funkcji skopiuje zaznaczoną treść do schowka systemowego lub wklei jego zawartość.

Funkcja ta zadziała nawet wtedy gdy nasza aplikacja będzie ukryta! 


//Ctrl+C

keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
keybd_event(Ord('C'), MapVirtualKey(Ord('C'), 0), 0, 0);
keybd_event(Ord('C'), MapVirtualKey(Ord('C'), 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0)



//Ctrl+V

keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), 0, 0);
keybd_event(Ord('V'), MapVirtualKey(Ord('V'), 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0)
Źródło: „https://wiki.opzsgu.pl/index.php?title=(Delphi)_Jak_symulować_wciśnięcie_klawisza_CTRL_%2B_V_lub_CTRL_%2B_C_w_całym_systemie_Windows&oldid=1741”