КИТА unofficial

program APK2;
type vector=array[1..20] of integer;
procedure doit (n:integer;var a:vector;var b:vector;var kol:integer);external;{$L apk2.obj}
var
  i,kol:integer;
  x,y:vector;
begin
  writeln('X');
  for i:=1 to 20 do
    begin
      x[i]:=i-1;
      write (x[i]:6);
    end;
  writeln;
  doit (20,x,y,kol);
  writeln('Y');
  for i:=1 to 20 do write (y[i]:6,'  ');
  writeln(kol);
  readln;
  writeln;
end.

private void refreshpageTimer_Tick(object sender, EventArgs e)
        {
            //            
            refreshLocation = clickLocation;
            refreshLocation.X = refreshLocation.X - 280;
            refreshLocation.Y = refreshLocation.Y;
            Cursor.Position = refreshLocation;
            //set up the INPUT struct and fill it for the mouse down
            INPUT i = new INPUT();
            i.type = INPUT_MOUSE;
            i.mi.dx = 0; //clickLocation.X;
            i.mi.dy = 0; // clickLocation.Y;
            i.mi.dwFlags = MOUSEEVENTF_RIGHTDOWN;
            i.mi.dwExtraInfo = IntPtr.Zero;
            i.mi.mouseData = 0;
            i.mi.time = 0;
            //send the input
            SendInput(1, ref i, Marshal.SizeOf(i));
            //set the INPUT for mouse up and send
            i.mi.dwFlags = MOUSEEVENTF_RIGHT_UP;
            SendInput(1, ref i, Marshal.SizeOf(i));
            //            
            refreshLocation.X = refreshLocation.X + 10 + (int)deltaXnumericUpDown.Value;
            refreshLocation.Y = refreshLocation.Y - 60 - (int)deltaYnumericUpDown.Value;
            Cursor.Position = refreshLocation;
            //set up the INPUT struct and fill it for the mouse down
            INPUT i2 = new INPUT();
            i2.type = INPUT_MOUSE;
            i2.mi.dx = 0; //clickLocation.X;
            i2.mi.dy = 0; // clickLocation.Y;
            i2.mi.dwFlags = MOUSEEVENTF_LEFTDOWN;
            i2.mi.dwExtraInfo = IntPtr.Zero;
            i2.mi.mouseData = 0;
            i2.mi.time = 0;
            //send the input
            SendInput(1, ref i2, Marshal.SizeOf(i2));
            //set the INPUT for mouse up and send
            i.mi.dwFlags = MOUSEEVENTF_LEFTUP;
            SendInput(1, ref i2, Marshal.SizeOf(i2));
        }

[b]LazarusLong[/b]

Тест кусочка кода