L liyoubin Unregistered / Unconfirmed GUEST, unregistred user! 2001-11-29 #1 [gold][/gold]<%=%> 本人急需一个像winpoup的程序代码,搞课程设计
L liuql188 Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-05 #3 100分太少,300分。 我有一个比winpopup功能要强的程序源代码,自己写的。
B balaschen Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-05 #4 To liuql188: 给个DEMO,好用我给你300分。balaschen@163.net,zxchen@xmgsd.com
萧 萧月禾 Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-05 #6 给你一个最土的,自己改进一下罢 procedure TForm1.BitBtn1Click(Sender: TObject); var msg : string; get : string; cmd : string; begin get := edit1.text; //发送对象的机器名 msg := memo1.Text; //发送内容 cmd := 'net send '+ get + ' '+ msg; //参数是pchar类型 winexec(pchar(cmd),0); end;
给你一个最土的,自己改进一下罢 procedure TForm1.BitBtn1Click(Sender: TObject); var msg : string; get : string; cmd : string; begin get := edit1.text; //发送对象的机器名 msg := memo1.Text; //发送内容 cmd := 'net send '+ get + ' '+ msg; //参数是pchar类型 winexec(pchar(cmd),0); end;
Y YB_unique Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-05 #7 用NetMessageBufferSend()
T testnet Unregistered / Unconfirmed GUEST, unregistred user! 2001-12-05 #8 怎么只有发送,借地方问一下,它是用哪个端口接收的?