如何用delphi 做一个信使服务 ？

[handthesun]

如何用delphi调用net send ?如何用delphi 做一个信使服务
感激

[program_dog]

谢谢您！
给我一份：[e-mail]

[foxrun]

thanks
[e-mail]

[FrameSniper]

谁给我介绍一个不错的API的书籍啊？

[icd]

[e-mail]

谢谢

[nyf1220]

学习
[e-mail]

[lw549]

[e-mail]

3x

[lovedata]

我已经将源代码发送到以上几位的信箱里了，注意查收！

[handthesun]

受到

[dicke]

var
IP,Msg: String;

WinExec(PChar('net send '+IP+Msg), SW_SHOW)

[lovedata]

楼主只收到不结贴吗？

[lovedata]

我发给你的程序绝对已经能解决你的问题了～

[joky1981]

var
IP,Msg: String;

WinExec(PChar('net send '+IP+Msg), SW_SHOW)

[popmailzjw]

ytytryty

[WGYKING]

8错
谢谢
[e-mail]

[haoguozhong]

WinExec(PChar('net send '+对方计算机名或IP+信息), 1)

[IORILI]

听课，接分

[lw549]

楼主人呢？？

怎么还不揭贴。

[IORILI]

首先加入函数声明
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: WideStrign;
begin
Msg:='你好,信使服务测试'; //信息内容
Target:= 'computer1'; //对方计算机名称
NetMessageBufferSend(NIL,PWidechar(Target),Nil,PWideChar(Msg),Length(String(Msg)));
end;

[liaoqingpeng]

我这样写的也只能发给局域网，不能发到广域网，哪位朋友有只要知道对方IP或域名就能发送的源程序呀，给我发一份吧。[e-mail] qq:34939858

[dzt1]

能给我吗？
我的地址：[e-mail]
顺便问一下，我的程序只能给局域网内发送，不知道能不能向非局域网内的其他ip发送吗？我总是没有试验成功！
谢谢！