هذا البرنامج يقوم بإرسال ضغطات مفاتيح للبرامج الأخرى ولكن مشكلته عدم تمكنه من إرسال العربى فأرجو المساعدة ممن لديه الحل.
وكيف يمكننى معرفة الــ Handle لأى أداه
Procedure pressKeys(WinName:Pchar;TheMsg: String);
Var WinHndl:HWND;
i:integer;
w:word;
D:DWORD;
P:^DWORD;
msgtxt:String;
begin
WinHndl := FindWindow( NIL,WinName);
if WinHndl = 0 then exit;
msgtxt:=TheMsg;
P:=@D;
SystemParametersInfo(SPI_GETFOREGROUNDLOCKTIMEOUT,0,P,0);
SetForeGroundWindow(WinHndl);
for i:=1 to length(msgtxt) do begin
w:=VkKeyScan(msgtxt);
keybd_event(w,0,0,0);
keybd_event(w,0,KEYEVENTF_KEYUP,0);
end;
setwindowtext(WinHndl,'Look it works');
end;
ولتجربته
PressKeys('Untitled - Notepad','good morning')
وشكراً
إبراهيم دياب