معادل این کدها دلفی 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;