如何实现 MS-DOS 中的 "NET SEND" 功能

Question

同上

Answer 1

//条件：在edit1中输入ip，在edit2中输入你想发送的内容；
winexec(pchar('command.com /C '+'net send '+edit1.text+' '+edit2.text),sw_hide)；
//搞定，结贴给分，呵呵！！

Answer 2

这种情况发送得字符串得长度有限制，而在dos下用net send命令发送得字符串是没有长度限制的，如何解决？？

Answer 3

var
  command:string ;
  comline: pchar ;
begin
  command:='NET SEND 192.168.0.1 abc';   //相关的网络指令可以放在这。
  comline:=pchar(command);
  WinExec(comline, sw_hide);   //隐藏MS-DOS窗口，比较符合DELPHI编程习惯。
end;

Answer 4

用 NetMessageBufferSend api可实现!!注意要用 unicode!!!

Answer 5

WinExec(你需要在dos下面输入的命令, sw_hide);
同意`

Answer 6

function NetMessageBufferSend(servername:PWideChar;                              msgname:PWideChar;
fromname:PWideChar;buf:PWideChar;
buflen:DWORD):DWORD;stdcall;external 'netapi32.dll'
procedure TForm1.Button1Click(Sender: TObject);
var
  Msg:WideString;
  Target: WideString;
begin
  Msg:='你好,信使服务测试';   //信息内容
  Target:= 'mis2';      //对方计算机名称
  NetMessageBufferSend(NIL,PWidechar(Target),Nil,PWideChar(Msg),Length(String(Msg)));end;