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