有些软件在局域网发消息可以匿名。不知道是怎样实现的,和net send有没有关系。
解决方案 »
- delphi怎么隐藏进程
- 我打不开delphi,是什么原因?
- WebBrowser+mshtml 如何控制无法查看代码的ajax网页
- 初学delphi请问一个简单得问题 望解答
- 在线等--对一个存储过程的结果集进行筛选查询查询!!!!!!
- 哪有好的界面设计的控件下载,包括界面,按钮一类的
- 各位大侠:有没有EXCEL一内容改变DELPHI就马上触发这个消息的例子啊??
- 各大虾:请问如何实现物体移动无闪烁.
- !着急!ADOdataset的动态SQL参数~我是这样做的
- 我想 没每天晚上11点 到 次日凌晨6点 执行代码 如何判断时间 是否在指定范围
- 简单问题,请帮手,在线等……
- MIDAS中,远程数据模块的接口方法若要返回int,string,bool等类型,则应该怎么设呢?
function NetSend(dest, Source, Msg: string): Longint;
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
Handle := LoadLibrary('NETAPI32.DLL');
if Handle = 0 then
begin
Result := GetLastError;
Exit;
end;
@NetMessageBufferSend := GetProcAddress(Handle, 'NetMessageBufferSend');
if @NetMessageBufferSend = nil then
begin
Result := GetLastError;
Exit;
end; 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;
finally
FreeMem(MessagetextWideChar);
FreeLibrary(Handle);
end;
end;