实现信使群发 怎样用DELPHI实现WINDOWS信使消息的群发,欢迎大家讨论。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.FlatButton2Click(Sender: TObject);varmsg:string;begintimer1.Interval:=5000;msg:='net send ' + flatedit1.Text + ' ' + flatmemo1.Text+chr(13)+chr(10)+'LAN Broadcasting v.1';winexec(pchar(msg),SW_HIDE);flatbutton2.Enabled:=false;end;ms-dos下可以发,那就用winexec(),很简单。 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, TFlatButtonUnit, ExtCtrls, TFlatPanelUnit, TFlatTitlebarUnit, StdCtrls, TFlatMemoUnit, TFlatEditUnit, TFlatHintUnit;type TForm1 = class(TForm) FlatTitlebar1: TFlatTitlebar; FlatPanel1: TFlatPanel; FlatButton1: TFlatButton; FlatEdit1: TFlatEdit; FlatMemo1: TFlatMemo; FlatButton2: TFlatButton; FlatHint1: TFlatHint; Shape1: TShape; Shape2: TShape; Shape3: TShape; Shape4: TShape; Shape5: TShape; Shape6: TShape; Shape7: TShape; Timer1: TTimer; procedure FlatButton1Click(Sender: TObject); procedure FlatEdit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure FlatButton2Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FlatButton1Click(Sender: TObject);beginclose;end;procedure TForm1.FlatEdit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);beginflatedit1.ShowHint:=true;end;procedure TForm1.FlatButton2Click(Sender: TObject);varmsg:string;begintimer1.Interval:=5000;msg:='net send ' + flatedit1.Text + ' ' + flatmemo1.Text+chr(13)+chr(10)+'LAN Broadcasting v.1';winexec(pchar(msg),SW_HIDE);flatbutton2.Enabled:=false;end;procedure TForm1.Timer1Timer(Sender: TObject);begintimer1.Interval:=0 ;flatbutton2.Enabled:=true;end;end.完整的 不调用net send 行吗?-------------可以,有个API的,我忘记了,不过还不如用NET SEND 来得方便 NetMessageSendBufferNetSendMessageBufferNetMessageBufferSend具体哪个忘了,你查查msdn 如何取本机所在网络的公网IP? 请问三层传图片该怎么写啊 输入框如何随窗口的最大化而自动调整? 問一個關於TComboBox小問題,在線等待!!多謝!! 终于想转学dephi了…… 我眼中的Delphi8.net?(来者有分!) 关于form.close.. 如何读法某个DFM文件中某个TComponent? 大讨论:TStringGrid控件有哪些不足之处?各位希望TStringGrid增加哪些功能!!!!! 用adoconnection怎样连接foxpro数据库的*.DBF文件,说详细点行吗?急,谢谢! 制作DLL。 请各位大侠指点!
var
msg:string;
begin
timer1.Interval:=5000;
msg:='net send ' + flatedit1.Text + ' ' + flatmemo1.Text+chr(13)+chr(10)+'LAN Broadcasting v.1';
winexec(pchar(msg),SW_HIDE);
flatbutton2.Enabled:=false;
end;
ms-dos下可以发,那就用winexec(),很简单。
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, TFlatButtonUnit, ExtCtrls, TFlatPanelUnit, TFlatTitlebarUnit,
StdCtrls, TFlatMemoUnit, TFlatEditUnit, TFlatHintUnit;type
TForm1 = class(TForm)
FlatTitlebar1: TFlatTitlebar;
FlatPanel1: TFlatPanel;
FlatButton1: TFlatButton;
FlatEdit1: TFlatEdit;
FlatMemo1: TFlatMemo;
FlatButton2: TFlatButton;
FlatHint1: TFlatHint;
Shape1: TShape;
Shape2: TShape;
Shape3: TShape;
Shape4: TShape;
Shape5: TShape;
Shape6: TShape;
Shape7: TShape;
Timer1: TTimer;
procedure FlatButton1Click(Sender: TObject);
procedure FlatEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure FlatButton2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FlatButton1Click(Sender: TObject);
begin
close;
end;procedure TForm1.FlatEdit1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
flatedit1.ShowHint:=true;
end;procedure TForm1.FlatButton2Click(Sender: TObject);
var
msg:string;
begin
timer1.Interval:=5000;
msg:='net send ' + flatedit1.Text + ' ' + flatmemo1.Text+chr(13)+chr(10)+'LAN Broadcasting v.1';
winexec(pchar(msg),SW_HIDE);
flatbutton2.Enabled:=false;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer1.Interval:=0 ;
flatbutton2.Enabled:=true;
end;end.
完整的
-------------
可以,有个API的,我忘记了,不过还不如用NET SEND 来得方便