各位!
想必大家都用过net send ,就是强行发送消息。
如果知道!最好给点代码!
谢了!
想必大家都用过net send ,就是强行发送消息。
如果知道!最好给点代码!
谢了!
解决方案 »
- 我想做一个button把现在的时间,年,月,日,时,分,秒输入不同的edit
- 用A数据库的表更新B数据库中表
- 在线等!刚做数据库方面的程序,哪位能给个思路!
- 三层结构,前端如何将gif,jpeg图象当成数据写入mssql中。而不是demo中当成文件另行存储。
- Delphi做网络编程能到什么程度?
- 怎样实现瑞星杀毒软件最小化窗口的效果
- 一条很难的SQL语句,有兴趣者请进来看看.
- 怎么加进去
- Delphi 调用 Win32 API 函数问题
- indy 10.6 POST中文GB2312数据乱码
- 把一个ListBox的ITEM拖放到另一个ListBox的ITEM里,要怎样体现鼠标的变化?都用到哪些事件?
- 如何在Delphi中创建、修改一个ODBC连接?
给分呀:)
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;