1,594
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
knife_s 2003-11-07
- 打赏
- 举报
路过
softwaiter 2003-11-07
- 打赏
- 举报
同意xiangwangz(<*敝屣荣华 浮云生死 此身何惧*>)的做法，比较简单，容易实现
aiirii 2003-11-07
- 打赏
- 举报
應該是 NetMessageBufferSend
注意傳的是 wideString的字符串!!
NET_API_STATUS NetMessageBufferSend(
LPCWSTR servername,
LPCWSTR msgname,
LPCWSTR fromname,
LPBYTE buf,
DWORD buflen
);
注意傳的是 wideString的字符串!!
NET_API_STATUS NetMessageBufferSend(
LPCWSTR servername,
LPCWSTR msgname,
LPCWSTR fromname,
LPBYTE buf,
DWORD buflen
);
xiangwangz 2003-11-07
- 打赏
- 举报
我来写 ：
procedure TForm1.Button1Click(Sender: TObject);
begin
winexec(pchar('command.com /C net send '+pchar(edit1.text)+' '+pchar(edit2.text)),sw_hide);
end;//在edit1中输入IP(如192.169.1.0)，在edit2中输入要发的内容！万事OK
procedure TForm1.Button1Click(Sender: TObject);
begin
winexec(pchar('command.com /C net send '+pchar(edit1.text)+' '+pchar(edit2.text)),sw_hide);
end;//在edit1中输入IP(如192.169.1.0)，在edit2中输入要发的内容！万事OK
wmjbobic 2003-11-06
- 打赏
- 举报
快想想!
aiirii 2003-11-06
- 打赏
- 举报
很簡單的函數, 我居然忘記名字了!!
