关于局域网ip的问题 如何才能截获某台机的ip被改消息,查了msdn,好像有NotifyAddrChange这个东西,不知那位高人可指点指点? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你试试这个:===========================================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. to lgqTiger(我爱Delphi) : 老兄,您客气了。谢谢您的帮助! 我的意图和楼上的兄弟差不多,我是想在每台机子上隐藏地运行一程式,专门用来截获修改IP这一系统消息,如果发现其修改IP,就强行关机等候处理。 文本数据不能循环读取 在定义类时在没有修饰符里定义的变量问题? DBGRIDEH相关 使用spcomm进行串口通信的问题?急 如何在程序中能把一个tif文件用kodakimg.exe这个程序给打开 问个简单问题:导出记录到notepad 这样的书会有多少人看? 麻烦各位检查一下,为什么我一个劲鼠标还会出现鼠标键盘不动的提示!(急!) ADO高手看过来! 如何让comboBox聚焦时自动展开? CSDN和大富翁上第二次问这个问题,就没人能搞定? 关于图片打印
===========================================
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.