怎样给局域网中的机子发短信？

[pecker]

windows2000在命令行中可以写：
net send xxx.xxx.xxx.xxx(ip地址) 'hello'
这样来发送短消息.
那么有没有这个功能的API函数呢？或者说delphi中有没有这个功能的函数？
如果没有，是不是实现起来很麻烦？

[henryluo]

可不要以用delphi调用命令行net send ......呢

[seav]

用WinExec()来调用net send

[僵哥]

unit Dummy;

interface
function NetSend(Dest, Source, Msg: string) : Longint;
const
NERR_Success=0;
NERR_BASE =2100;
NERR_NameNotFound =(NERR_BASE+173);
NERR_NetworkError =(NERR_BASE+36);
{
NERR_Success:caption:='NERR_Success';
ERROR_ACCESS_DENIED: ShowMessage('The user does not have access to the requested information.');
ERROR_INVALID_PARAMETER : ShowMessage('The specified parameter is invalid.');
ERROR_NOT_SUPPORTED : ShowMessage('This network request is not supported.');
NERR_NameNotFound : ShowMessage('The user name could not be found.');
NERR_NetworkError : ShowMessage('A general failure occurred in the network hardware.');
}
implementation
uses
windows;
function NetSend(Dest, Source, Msg: string) : Longint; overload;
type
TNetMessageBufferSendFunction = function(servername, msgname, fromname: PWideChar;
Buf: PWideChar; buflen: Cardinal) : Longint; stdcall;
var
NetMessageBufferSend: TNetMessageBufferSendFunction;
SourceWideChar: PWideChar;
DestWideChar: PWideChar;
MessagetextWideChar: PWideChar;
Handle: THandle;
begin { NetSend }
Handle := LoadLibrary('NETAPI32.DLL');
if Handle=0 then
begin
Result := GetLastError;
Exit;
end; { Handle=0 }
@NetMessageBufferSend := GetProcAddress(Handle, 'NetMessageBufferSend');
if @NetMessageBufferSend=nil then
begin
Result := GetLastError;
Exit;
end; { @NetMessageBufferSend=nil }
MessagetextWideChar := nil;
SourceWideChar := nil;
DestWideChar := nil;

try
GetMem(MessagetextWideChar, Length(Msg)*SizeOf(WideChar)+
1);
GetMem(DestWideChar, 20*SizeOf(WideChar)+1);
StringToWideChar(Msg, MessagetextWideChar, Length(Msg)*SizeOf(WideChar)+
1);
StringToWideChar(Dest, DestWideChar, 20*SizeOf(WideChar)+
1);
if Source='' then
Result := NetMessageBufferSend(nil, DestWideChar, nil, MessagetextWideChar,
Length(Msg)*SizeOf(WideChar)+
1)
else
begin
GetMem(SourceWideChar, 20*SizeOf(WideChar)+1);
StringToWideChar(Source, SourceWideChar, 20*SizeOf(WideChar)+
1);
Result := NetMessageBufferSend(nil, DestWideChar, SourceWideChar,
MessagetextWideChar, Length(Msg)*SizeOf(WideChar)
+1);
FreeMem(SourceWideChar);
end; { not (Source='') }

finally
FreeMem(MessagetextWideChar);
FreeLibrary(Handle);
end; { try }
end; { NetSend }

function NetSend(Dest, Msg: string) : Longint; overload;
begin { NetSend }
Result := NetSend(Dest, '', Msg);
end; { NetSend }

function NetSend(Msg: string) : Longint; overload;
begin { NetSend }
Result := NetSend('', '', Msg);
end; { NetSend }

//begin
// NetSend('exchage', 'Hello, Mike');
end.