如何才能截获某台机的ip被改消息,查了msdn,好像有NotifyAddrChange这个东西,不知那位高人可指点指点?

解决方案 »

  1.   

    你试试这个:
    ===========================================
    unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      StdCtrls,winsock, ExtCtrls;type
      TForm1 = class(TForm)
        Label1: TLabel;
        EditPresentation: TEdit;
        Label2: TLabel;
        EditResult: TEdit;
        Button1: TButton;
        Label3: TLabel;
        edtHex: TEdit;
        Bevel1: TBevel;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;var
      Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
    var
       Host:DWORD;
    begin
         Host:=inet_addr(PCHAR(EditPresentation.Text));
         edtHex.Text:=inttohex(host,16);
         EditResult.Text:=Format('%d.%d.%d.%d',
                                 [Lo(LOWORD(Host)),
                                  Hi(LOWORD(Host)),
                                  Lo(HIWORD(Host)),
                                  Hi(HIWORD(Host))]);
    end;end.
      

  2.   

    to  lgqTiger(我爱Delphi) :  老兄,您客气了。谢谢您的帮助!
      

  3.   

    我的意图和楼上的兄弟差不多,我是想在每台机子上隐藏地运行一程式,专门用来截获修改IP这一系统消息,如果发现其修改IP,就强行关机等候处理。