NET SENDを用いたメッセージ送信 (ID：33280)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

monaaさん、にしのさん。
ありがとうございました。
お礼がすっかり遅くなってしまいすみません。

にしのさんからアドバイス頂いた方法を行っているのですが、
どうしてもメッセージが着信できません。
コマンドプロンプトで直接入力した場合にはメッセージが着信しましたので、
私のプログラムがおかしいのだと思います。

再び、アドバイスをお願い致します。

//-------------------------------------------------------------------
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

function NetMessageBufferSend(
  servername, msgname, fromname: LPCWSTR;
  buf: PBYTE;
  buflen: DWORD): LongInt; stdcall;

implementation

{$R *.dfm}

function NetMessageBufferSend; external 'netapi32.dll' Name 'NetMessageBufferSend';

procedure TForm1.FormCreate(Sender: TObject);
var
  MsgName: WideString;
  FromName: WideString;
  BufStr: WideString;
  Buf: PBYTE;
  Len: DWORD;
begin
  MsgName := 'PC01';
  FromName:= 'PC02';
  BufStr := 'テストメッセージ';
  Buf := PBYTE(PWideChar(BufStr));
  Len := Length(BufStr) * 2;

NetMessageBufferSend(
    nil, //実行元(nilならローカル)
    PWideChar(MsgName),
    PWideChar(FromName),
    buf,
    len);

end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る