Nachrichten ohne Gegenstelle im Netztwerk versenden

[Fussball-Robby]

Zitat von RavenIV:

Ausserdem muss der Nachrichtendienst installiert und aktiviert sein.
So weit ich weiss ist der Nachrichtendienst seit WinXP nicht mehr standardmässig dabei.

Ich habe XP und der Nachrichtendienst war dabei, ich musste ihn nicht installieren.

Probiers doch einfach mit ShellExecute:

Delphi-Quellcode:

//uses ShellApi;

Procedure NetSend(Nachricht: String; Empfaenger: String = '*');
begin
  ShellExecute(Application.Handle,
              'open',
              PChar('cmd'),
              Pchar('/C Net Send ' + Empfaenger + ' ' + Nachricht),
              Nil,
              sw_Hide);
end;

//An einen Computer senden:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Netsend('Hi, wie gehts?','Computer1');
end;

//Oder an das genze Netzwerk:
begin
  Netsend('Hi, wie gehts?');
end;

Computer1 ersetzt du durch den Namen (geht da auch die IP? ) des Computers, der die Nachricht empfangen soll. Lässt du den Paramter ganz weg oder schreibst * rein, wird es an alle PCs aus dem Netzwerk verschickt.

Mfg