J J
2012-11-10 17:13:11
Hi
I'm looking to type @ in Appa but when you get the keycode from a string it will type 2 instead of @. Then I made it press shift and 2 but it will still type 2.
How can I let it type '@'?
I'm looking to type @ in Appa but when you get the keycode from a string it will type 2 instead of @. Then I made it press shift and 2 but it will still type 2.
How can I let it type '@'?
procedure appa_SendKeys(s: string);
var
L, i: Integer;
Shift: Boolean;
begin
L := Length(s);
for i:=1 to L do
begin
Shift := False;
if(s[i] = '@') then
Shift := True;
writeln(s[i]);
writeln(Shift);
if(Shift) then
appa_KeyDown(VK_SHIFT);
appa_KeyDown(GetKeyCode(s[i]));
Wait(100);
appa_KeyUp(GetKeyCode(s[i]));
if(Shift) then
appa_KeyUp(VK_SHIFT);
Wait(100);
end;
end;