怎么实现NT的 net send 命令的功能

Question

internet 员中 TServerSocket 和 TClientSocket

Answer 1

用
NET_API_STATUS NetMessageBufferSend(
  LPCWSTR servername,  
  LPCWSTR msgname,     
  LPCWSTR fromname,    
  LPBYTE buf,          
  DWORD buflen         
);

Answer 2

在BCB中是这样的：
    wchar_t *MsgName;
    BYTE    Buf[]="Hello";
    DWORD len;
        MsgName=StringToOleStr("victor");
        FromName=StringToOleStr("FromName");
        NetMessageNameAdd(NULL,MsgName);
        NetMessageBufferSend(NULL,MsgName,NULL,LPBYTE(StringToOleStr("Hello")),10);
        NetMessageNameDel(NULL,MsgName);
NetMessageNameAdd等是msAPI，delphi中没有，你可以这样定义：
function NetMessageBufferSend(lpServerName,lpMsgName,lpFromName: PWideChar;
        lpBuf:PChar; BufLen:DWORD):DWORD; stdcall;
function NetMessageNameAdd(lpServerName,lpMsgName: PWideChar):DWORD; stdcall;
function NetMessageNameDel(lpServerName,lpMsgName: PWideChar):DWORD; stdcall;implementation // 这行是原来有的，你要插入上面和下面的定义。function NetMessageBufferSend;  external 'netapi32.dll' name 'NetMessageBufferSend';
function NetMessageNameAdd;  external 'netapi32.dll' name 'NetMessageNameAdd';
function NetMessageNameDel;  external 'netapi32.dll' name 'NetMessageNameDel';