net send Befehl in Delphi!!!

[codeman]

hi
ich möchte mit einen einfachen Button + 2Editfelder (für Pc-Namen auswahl Das Editfeld)Button für Abschicken 2. Editfeld für die Naricht.
Eine Nachricht verschicken.
Wie mach ich das mit Shellexcute oder wie


Bitte ausführlich erklären bin nooch ein Newbie :( :( :(

cu codeman

[Daniel B]

Hallo und herzlich Willkommen im Forum!

Schau Dir mal folgende Threads an:
Klick1
Klick2
Klick3
Das sollte langen. ;)

Grüsse, Daniel :hi:

[Luckie]

Entweder mit Shellexecute oder richtig mit NetMessageBufferSend.
Mit Shellexecute sollte es so gehe:

Delphi-Quellcode:

var
  sReceiver, sMessage, s : String;
begin
  sReceiver := Edit1.Text;
  sMessage := Edit2.Text;
  s := 'send'+sReceiver+' '+sMessage;
  Shellexecute(Form1.Handle, 'open', 'net', pointer(s), nil, SW_HIDE);

Ungetestet, der Forum eigene Debugger geht mal wieder nicht. DANIIIIEEEEELLLLLL!!!!
Ich würde aber NetMessageBufferSend vorziehen, da du dann eine bessere Kontrolle hast, wenn Fehler auftreten. Ankucken kannst du dir das in meinem Programm NetSend zu finden auf meiner Seite - ist mit Soße. :P