客户机要改注册表 给你一个例子! reg:=tregistry.Create; with reg do begin RootKey:=HKEY_LOCAL_MACHINE; if OpenKey('SOFTWARE\Microsoft\MSSQLServer\Client\ConnectTo',true) then begin WriteString('DSQUERY','DBNETLIB'); WriteString('itgweb','DBMSSOCN,xxx.xxx.xxx.xxx,8433');//8433是端口号 end else begin OpenKey('SOFTWARE\Microsoft\MSSQLServer\Client\ConnectTo',true); WriteString('DSQUERY','DBNETLIB'); WriteString('itgweb','DBMSSOCN,xxx.xxx.xxx.xxx,8433');//8433是端口号 end; end;
给你一个例子!
reg:=tregistry.Create;
with reg do
begin
RootKey:=HKEY_LOCAL_MACHINE;
if OpenKey('SOFTWARE\Microsoft\MSSQLServer\Client\ConnectTo',true) then
begin
WriteString('DSQUERY','DBNETLIB');
WriteString('itgweb','DBMSSOCN,xxx.xxx.xxx.xxx,8433');//8433是端口号
end
else
begin
OpenKey('SOFTWARE\Microsoft\MSSQLServer\Client\ConnectTo',true);
WriteString('DSQUERY','DBNETLIB');
WriteString('itgweb','DBMSSOCN,xxx.xxx.xxx.xxx,8433');//8433是端口号
end;
end;