unotice.pas

一个采用delphi开的数库系统

unit Unotice;

interface
uses
 SysUtils,Classes;
function ToUnicode(Str:string;Dest:PWideChar):Integer;
function SendMsg(Toh,From,Msg:String):Integer;
function NetMessageBufferSend(ServerName:PWideChar;MsgName:PWideChar;FromName:PWideChar;Buf:PWideChar;var BufLen:Integer):Integer;cdecl;

implementation

function ToUnicode(Str: string; Dest: PWideChar): Integer;
var
  Len:Integer;
begin
  StringToWideChar(Str,Dest,Len);
  Result:=Len;
end;

function NetMessageBufferSend;external 'netapi32.dll' name 'NetMessageBufferSend';
function SendMsg(Toh, From, Msg: String): Integer;
var
 ToName:Array [0..64] of WideChar;
 WMsgText:Array [0..1000] of WideChar;
 MsgLen,i:Integer;
begin
  For i:=0 to 64 do ToName[i]:=#0;
  ToUnicode(Toh,ToName);
  For i:=0 to 1000 do WMsgText[i]:=#0;
  ToUnicode(Msg,WMsgText);
  Result:=NetMessageBufferSend(nil,ToName,nil,@WMsgText,MsgLen);
end;

end.