高分求助,能不能通過internet,直接向對方發送消息,兩方都是win2000.

用这个试试
function NetMessageBufferSend(servername:PWideChar;
                              MsgName:PWideChar;
                              FromName:PWideChar;
                              Buf: PWideChar;
                              var BufLen:integer):integer;cdecl;//定义函数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;
    StringToWideChar(Toh,ToName,i);
    for i := 0 to 1000 do WMsgText[i] := #0;
    StringToWideChar(Msg,WMsgText,i);
    NetMessageBufferSend(nil,ToName,nil,@WMsgText,MsgLen);
end;