wgandalf

procedure TForm1.Button1Click(Sender: TObject); function PalabraAleatoria(Longitud: integer): string; const Letras = '01234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ'; var n : integer; begin Result:=''; for n:=1 to Longitud do...

Si tienes que tener una servidor para que ahí tengas la bd y las demás maquina busquen la info en cada maquina configura el odbc a la maquina que la tienes. Y podes poner un timer para que refresque la tabla en un cierto tiempo. Y las modificaciones...

Hola, mi duda es como puedo hacer para impedir que un usuario ejecute un programa. Quiero habilitarle solo unos cuantos programas que use y nada más, si podes ayudarme te lo agradecería.-

Begin if Key = #13 then begin Key := #0; Perform(WM_NEXTDLGCTL,0,0); end end;

Tienes varias páginas: www.abcdatos.com www.clubdelphi.com www.lawebdelprogramador.com Por ahora no me acuerdo más pero creo que tengo anotado en mi casa así que si la encuentro te las mando.- Bye espero que te sirva