1 2 {this is useful to if your running a application on a remote PC and you3 need the app to send you information on its status.}4 5 type6 TForm1 = class(TForm)
7 btnSend: TButton; //button to send the message8 edtPC_name: TEdit;//edit that contains the remote PC name9 edtMessage: TEdit;//edit that contains the message to send10 procedure btnSendClick(Sender: TObject);
11 private12 { Private declarations }13 public14 { Public declarations }15 end;
16 17 var18 Form1: TForm1;
19 20 implementation21 22 {$R *.DFM}23 24 procedure TForm1.btnSendClick(Sender: TObject);
25 begin26 // sends message27 winexec(pchar('Net send '+edtPC_name.text+' '+edtMessage.text),0)
28 end;