How I can emulate the ESC key to close the lister? I tried this code:
Code: Select all
Perform(WM_KEYDOWN, VK_ESCAPE, (VK_ESCAPE shl 16) or VK_ESCAPE);
Perform(
WM_KEYUP, VK_ESCAPE, Integer($C0000000 or (VK_ESCAPE shl 16) or VK_ESCAPE));
Code: Select all
keybd_event(VK_ESCAPE, 0, 0, 0);
Perform(WM_KEYDOWN, VK_ESCAPE, (VK_ESCAPE shl 16) or VK_ESCAPE);
keybd_event(VK_ESCAPE, 0, KEYEVENTF_KEYUP, 0);
Perform(
WM_KEYUP, VK_ESCAPE, Integer($C0000000 or (VK_ESCAPE shl 16) or VK_ESCAPE));
PS: Sorry for my english.