NetSend mit Delphi

[Matze]

also bei mir geht das so auch

Delphi-Quellcode:

procedure TForm1.Senden;
var Send: string;
begin
  Send := 'send ' + User.Text + ' ' + Nachricht.Text;
  ShellExecute(GetDesktopWindow, 'open', 'net.exe', PChar(Send), nil, SW_HIDE);
end;

Wo bei "User" ein Edit ist, in dem der Empfänger steht (angemeldeter User oder Computername)
und "Nachricht" ein Memo ist, in dem die nachricht steht