关于网友提出的“ 帮我看一下，怎么不能通过编译”问题疑问，本网通过在网上对“ 帮我看一下，怎么不能通过编译”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：
问题： 帮我看一下，怎么不能通过编译
描述: unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,winsock;
type
TForm1 = class(TForm)
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TDHCPNOTIFYPROC = function(JQName,NetName:pchar;ZXing:boolean;nIndex,NetIP,NetMask:dword;Ss:integer):Boolean;
var
Form1: TForm1;
implementation
{$R *.dfm}
Function NotifyIP:Boolean;
var
DhcpDll:THandle;
DHCPD:TDHCPNOTIFYPROC;
begin
try
DhcpDll:=LoadLibrary('dhcpcsvc.dll');
if DhcpDll <> 0 then
begin
@DHCPD:=GetProcAddress(DhcpDll, PChar('DhcpNotifyConfigChange'));
if @DHCPD <> nil then
DHCPD(nil,pchar('{01082454-E36A-48C4-A59F-35D6CEF88484}'),True,0,inet_addr(('192.168.0.240')),inet_addr(('255.255.255.0')),0);
end;
Finally
FreeLibrary(DhcpDll);
end;
end;
以上介绍了“ 帮我看一下，怎么不能通过编译”的问题解答，希望对有需要的网友有所帮助。
本文网址链接：http://www.codes51.com/itwd/3677563.html
