NET SEND für Windows 98? REPLACEMENT

[edosoft]

so kann manns auch übersetzen...

aber sonst: weils auch einfach so zufällig en headcrash gibt...
naja

übrigens: "net send" (d.h. nachrichten NUR VERSCHICKEN) geht so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;
  H: THandle;
  C: Cardinal;
begin
////////
//edit1: pc, der die msg empfängt(IP oder NAME)
//edit2: "nachricht von x"...
//edit3: ..."an x am <datum - wird von windows gesetzt>"
//memo1: nachrichtentext
////////

S := Edit2.Text + #0 + Edit3.Text + #0 + Memo1.Text + #0;
H := CreateFile(PChar('\\' + Edit1.Text + '\mailslot\messngr'), GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
WriteFile(H, S[1], Length(S), C, nil);
CloseHandle(H);
end;

/EDIT: UUH ein formalitätsfehler im code (leerzeichen nach ":=" vergessen...)