Net Send

[netscanner]

Hi ich hab hier ein net send Schleifen - Programm geschrieben

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a, b: integer;
c, d : string;
begin

b:= strtoint (edit1.text);
a := 0   ;
c:= edit2.text  ;
d := edit3.text;
repeat a := a + 1  ;
begin
windows.WinExec(pchar('net send  ' + (d) + (c)),1);
end;
 until  a = b;
end;

variable a ist für die Schleife
b ist die Begrenzung der Schleife
c der Text, der mit net send gesendet wird
und d SOLLTE die IP Eingabe sein - das funktioniert aber nicht so wie ich wollte....ShellExec geht bei mir nicht (Delphi 6) also bitte nich sowas anbieten....
Kann mir Jemand helfen????


Schnelle Antwort wäre gut...
Danke