معادل این کدها دلفی 10.3 چیست

[khoshblagh]

با سلام خدمت دوستان محترم
ظاهرا کدهای زیر در دلفی 10 منسوخ شده است. در صورت منسوخ شدن معادل آنها چیست؟ متشکرم
keybd_event(VK_CONTROL,0,0,0)
;keybd_event(ord('C'),0,0,0);
keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);

[دلفــي]

با سلام خدمت دوستان محترم
ظاهرا کدهای زیر در دلفی 10 منسوخ شده است. در صورت منسوخ شدن معادل آنها چیست؟ متشکرم
keybd_event(VK_CONTROL,0,0,0)
;keybd_event(ord('C'),0,0,0);
keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);




پروسیجر keybd_event در داخل یونیت Windows قرار داره و شما می تونید با استفاده از یونیت Winapi.Windows در قسمت Uses همچنان از دستورات آن استفاده کنید:

uses
Winapi.Windows;

procedure TForm1.Button1Click(Sender: TObject);
begin
keybd_event(VK_CONTROL,0,0,0);
keybd_event(ord('C'),0,0,0);
keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);
end;