SoloCodigo

Holas, estoy usando una funcion para hacer un firewall...
La que realmente importa ahora es la funcion GetTcpTable, es una funcion externa, en una dll llamada "iphlpapi.dll".
El problema que tengo es en la pasada de parametros (la funcion devuelve un codigo de error que es 0 si es correcto, y cualquier otro valor si hay un error, el valor indica el error, un codigo de error comun y corriente).
*******Ahora les voy a mostrar los tipos de dato requeridos para la funcion
type
  MIB_TCPROW = record
    dwState: dword;
    dwLocalAddr: dword;
    dwLocalPort: dword;
    dwRemoteAddr: dword;
    dwRemotePort: dword;
  End;
  MIB_TCPTABLE = record
    dwNumEntries: dword;
    table: array[0..100] of MIB_TCPROW;
  End;

***********Ahora dos tipos de puntero********************

  pDW = ^dword;
  pTabla = ^MIB_TCPTABLE;

***Ahora, dos variables declaradas en la seccion Private del form****

private
   tabla: MIB_TCPTABLE;
   conexion: MIB_TCPROW;

*************Ahora, en la seccion Implementation****************
//Externa
function GetTcpTable(table:pTabla;pdwSize:pDW;bOrder: boolean):DWORD; External 'iphlpapi.dll';
//Form.Create
procedure TForm1.FormCreate(Sender: TObject);
var
  retval: DWORD;
  bucle:integer;
  x: Boolean;
  tamanio: DWORD;
begin
  show;
  tamanio:=sizeof(tabla);
  x:=false;
  retval:=GetTcpTable(@tabla,@tamanio,x);
  //lo que sigue no viene al caso**************************************
End;

Vean este codigo, no entiendo xq me da error 87 (parametro/parametros no valido/validos)

Holas alguno me puede dar la funcion que me permita personalizar un datagrama IP???? pliiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiis.

(Yo me imagino que componentes como el winsock deben usar unas así)

Quisiera saber si al menos uno tiene una idea del nombre... lo necesito

mi evento keydown, tiene el procedure asociado:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
    edit1.Text := inttostr(key);
    If Key = 40 Then //abajo
        if shape3.top <= 149 then shape3.top := shape3.Top + 6;
    If Key = 38 Then //arriba
        if shape3.Top >= 3 then shape3.Top := shape3.Top - 6;
    If Key = 65 Then //A
        if shape2.Top >= 3 then shape2.Top := shape2.Top - 6;
    If Key = 90 Then //Z
        if shape2.Top <= 149 then shape2.Top := shape2.Top + 6;
    if key = 113 then//F2
    begin
        timer1.Enabled := not timer1.enabled
    end;
end;

el programa hace 5 comprobaciones, el programa es el antiguo PONG (el de los palitos y la pelota).

si se presiona A o Z, el programa moverá la shape2 arriba o abajo respectivamente. (jugador 1)

si se presiona la flecha arriba o la flecha abajo, en esas direcciones irá el jugador 2.

ahora el problema: cuando presiono una tecla y la mantengo presionada, el eventi se mantiene, y el cosito se mueve hasta que se deje de presionar la tecla, pero si mantengo la primera tecla, y a la vez mantengo presionada una segunda tecla, entonces lo que pasará es que se dejará de mover el primer coso en la primer direccion en que se estaba moviendo, para empezar a moverse el segundo (o el primer coso en una nueva direccion, depende de las teclas que se presionan).

Lo que quiero hacer es que se reconozcan ambas teclas a la ves, asi los jugadores se mueven con libertad ( en el rango reglamentario del ping pong: arriba o abajo)

El compilador me dice que el uso del <= no es correcto

IF int(shape4.Top) >= int(shape3.Top) -8 AND int(shape4.Top) <= int(shape3.Top) + 3 THEN //lo que sea que le siga

probe ponerlo ente () a cada proposicion unida por el AND.....

IF (int(shape4.Top) >= int(shape3.Top) -8)  AND (int(shape4.Top) <= int(shape3.Top) + 3) THEN //lo que sea que le siga

.....solo para obtener el mismo error.

Tuve que hacer algo que no me gustó,tuve que anidar IFs, hizo mas largo el codigo, y por consiguiente retrasa las acciones en milisegundos, esos milisegundos son escenciales, ya que un proceso enorme tiene que hacer un timer1 cuyo interval := 16.

Me podrían decir xq la linea no es valida? (yo mudé desde VB y quiero saber que estoy haciendo mal en esa linea, en VB hubiera sido valida :s ya que de ahi mudé el codigo porque lo estaba haciendo en VB hasta que me avivé que no le podia poner icono a mi prg.)

Holas, necesito ayuda... la verdad no lo se hacer con ningun lenguaje, pero se que los mejores programadores vienen a parar AK asi que...
Bueno la cosa es que existe un programa en un juego llamado "Argentum Online" (por cierto es un programa ilegal y no esta permitido en casi ningun caso por el staff del AO). Puede adoptar diferentes nombres pero siempre tendra unos en comun: "Macro" "Piringulete".
El Piringulete hace, cada cierto intervalo de tiempo (el cual el usuario especifica en un EDIT), una accion determinada (El mas frecuente es forzar la presion de la tecla U y un click del mouse, en las posiciones X Y que este el mouse; otro fuerza las posiciones del mouse a una determinada por el user, otros fuerzan el Enter, fuerzan las teclas para escribir "Resucitar" y fuerzan otra ves el enter).
Mi duda es si alguien puede decirme como forzar esas cosas..... Alguien me puede ayudar ?????????????????????

Mamu si lo sabes decime pliiiiiiiiiiiiiiiiiiiiiiiiiiis (mamu := appache)