weequ
2010-09-16 17:43:06
ClickMouse doesn't move the mouse. Nor does HoldMouse or ReleaseMouse.
And SendKeys can't type any keys that require shift or ctrl and alt.
This is the fix I used with SendKeys:
And something like this with ClickMouse:
And SendKeys can't type any keys that require shift or ctrl and alt.
This is the fix I used with SendKeys:
procedure SendKeys2(S: String);
var
I: Integer;
begin
for I := 1 to High(S) do
begin
if Pos(S[I], 'ABCDEFGHIJKLMNOPQRSTUVWXYZOÄÖ'+'!"#¤%&/()=?*:;_>½') > 0 then KeyDown(VK_SHIFT);
if Pos(S[I], '@£$€{[]}\µ|') > 0 then
begin
KeyDown(VK_CONTROL);
KeyDown(VK_MENU);
end;
WriteLn(IntToStr(I));
KeyDown(GetKeyCode(S[I]));
KeyUp(GetKeyCode(S[I]));
KeyUp(VK_SHIFT);
KeyUp(VK_CONTROL);
KeyUp(VK_MENU);
end;
end; And something like this with ClickMouse:
procedure ClickMouse2(x, y, I);
begin
MoveMouse(x, y);
ClickMouse(x, y, I);
end;Anyway I pretty much gave up with simba..