فشردن مجازی کلید

[mmofti]

آیا کدی برای فشردن مجازی کلید از صفحه کلید وجود دارد

[اَرژنگ]

آیا کدی برای فشردن مجازی کلید وجود دارد
میشه یکمی توضیح بدید؟ منظورتان از فشار دادن مجازیه کلید چیه؟ یک مثال خیل کمک میکنه.

[anubis_ir]

در مورد تابع keybd_event در MSDN جستجو کنید.

[mmofti]

کلید را فشار ندیم ولی کد اسکی تولید بشه

[jirjirakk]

فکر کنم SendMEssage همچین کارایی رو بتونه انجام بده.

[احمد کرک]

یک نمونه از سورس کدی را که در برنامه ام نوشته بودم برات می فرستم:


procedure TFormMain.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
var
i: SmallInt;
begin
if Msg.message = WM_MOUSEWHEEL then
begin
Msg.message := WM_KEYDOWN;
Msg.lParam := 0;
i := HiWord(Msg.wParam) ;
if i > 0 then
Msg.wParam := VK_UP
else
Msg.wParam := VK_DOWN;
Handled := False;
end;
end;