Truco: Mandar un NET SEND desde una aplicación…

Hola a todos, he aquí otro código que puede serles útil a la hora de programar una aplicación:

Añadimos al Uses la unit ShellAPI

Insertamos 2 Edits y un Button, el Edit1 será el IP de la máquina a quien vamos a enviar el mensaje o el nombre de la misma y el Edit2 será el mensaje a enviar…
Y añadimos en el evento OnClick del Button el siguiente código…

procedure TForm1.Button1Click(Sender: TObject);
begin
Try
WinExec(Pchar(‘net send ‘ + Edit1.Text + ‘ ‘ + Edit2.Text),0);
MessageDlg(‘El mensaje ha sido enviado satisfactoriamente al usuario: [' + Edit1.Text + ']‘,mtInformation, [mbOK], 0);
Except
MessageDlg(‘El mensaje no se ha podido enviar…’, mtError, [mbOK], 0);
End;
end;

Salu2,

Lester Espinosa Martínez