मैंने इसका उपयोग किसी परेशानी वाले पॉपअप 3 जी एप्लिकेशन को बिना किसी इंटरफेस के पाठ भेजने के लिए किया है, यह एक हैक जिसे हम किसी भी विकल्प से नहीं छोड़ेंगे।
procedure TForm1.TypeMessage(Msg: string);
var
CapsOn: boolean;
i: integer;
ch: char;
shift: boolean;
key: short;
begin
CapsOn := (GetKeyState(VK_CAPITAL) and $1) <> 0;
for i:=1 to length(Msg) do
begin
ch := Msg[i];
ch := UpCase(ch);
if ch <> Msg[i] then
begin
if CapsOn then
begin
keybd_event(VK_SHIFT, 0, 0, 0);
end;
keybd_event(ord(ch), 0, 0, 0);
keybd_event(ord(ch), 0, KEYEVENTF_KEYUP, 0);
if CapsOn then
begin
keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
end;
end
else
begin
key := VKKeyScan(ch);
// UpperCase
if ((not CapsOn) and (ch>='A') and (ch <= 'Z')) or
((key and $100) > 0) then
begin
keybd_event(VK_SHIFT, 0, 0, 0);
end;
keybd_event(key, 0, 0, 0);
keybd_event(key, 0, KEYEVENTF_KEYUP, 0);
if ((not CapsOn) and (ch>='A') and (ch <= 'Z')) or
((key and $100) > 0) then
begin
keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0);
end;
end;
end;
end;
आशा व्यक्त की कि
अद्यतन
संपादित में मदद करता है अन्य पात्रों (गैर अल्फा) की अनुमति के लिए यानी इकाई से अंकों के लिए स्थानांतरित कर दिया! "£ $ आदि
क्या आपने अभी तक SendInput को आजमाया है? –
क्या इसे डेल्फी होना चाहिए? Autohotkey देखो। –