cmd mit Befehl

[Waldteufel]

Hi.

So gehts:

Delphi-Quellcode:

var
  pcname, text : String;
begin
  pcname := Edit1.Text;
  text := RichEdit1.Text;
  ShellExecute(Application.Handle, 'open', 'cmd.exe', PChar('/C net send ' + pcname + ' ' + text), nil, SW_SHOW);
end;