求助，如何实现信史服务发送消息(50分)

S

stuwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-29

• #1

API

 

T

takashiki

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-29

• #2

net send 计算机名 "Message"

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-29

• #3

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;

 

W

www

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-29

• #4

刚才忘了函数声明了,要先加入函数声明
function
NetMessageBufferSend(servernameWideChar;msgnameWideChar;
fromnameWideChar;bufWideChar;buflenWORD)WORD;stdcall;external 'netapi32.dll'

 

S

stuwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-09

• #5

多人接受答案了。