掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
NET SENDを用いたメッセージ送信 (ID：33279)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
interfaceに、 function NetMessageBufferSend( servername, msgname, fromname: LPCWSTR; buf: PBYTE; buflen: DWORD): LongInt; stdcall; を定義して、implementationに、 function NetMessageBufferSend; external 'netapi32.dll' Name 'NetMessageBufferSend'; としておいてから、 procedure TForm1.Button1Click(Sender: TObject); var MsgName: WideString; FromName: WideString; BufStr: WideString; Buf: PBYTE; Len: DWORD; begin MsgName := [送信先]; FromName:= [送信元(nilならローカル)]; BufStr := Edit1.Text; Buf := PBYTE(PWideChar(BufStr)); Len := Length(BufStr) * 2; NetMessageBufferSend( nil, //実行元(nilならローカル) PWideChar(MsgName), PWideChar(FromName), buf, len); end; で送信できます。 # このAPIが使えるのはWindows2000以降だと思います
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.