Ver Mensaje Individual
  #2  
Antiguo 20-11-2003
Avatar de Lester
Lester Lester is offline
Miembro
 
Registrado: may 2003
Ubicación: Cienfuegos, Cuba.
Posts: 106
Reputación: 22
Lester Va por buen camino
Thumbs up

Bueno amigos ya he resuelto el problema, a continuación muestro el código para si a alguien le hace falta algún día, el procedimiento es llamando al "net send" del MS-DOS y pasándole como parámetros el nombre o IP de la máquina a mandar el mensaje y luego el texto del mensaje...

Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
 Try
  WinExec(Pchar('net send ' + ComboBox1.Text + ' ' + Edit1.Text),0);
  MessageDlg('El mensaje ha sido enviado satisfactoriamente al usuario: [' + ComboBox1.Text + ']',mtInformation, [mbOK], 0);
 Except
  MessageDlg('El mensaje no se ha podido enviar...', mtError, [mbOK], 0);
 End;
end;
__________________
Lester Espinosa Martínez

[ Guía de estilo | La otra guía de estilo | Buscador | Trucos | My personal blog ]
Responder Con Cita