delphi 设置代理问题 急
网上看了很多帖子 方法都一样 调试起来都不行
虽然 IE 选项中已经完成了 代理的设置
但是 访问起来还是不行 譬如 访问www.ip138.com
已经是本机IP
我的代码 就是根据网上普遍的代码 修改的 请高手过目
procedure TForm1.Button1Click(Sender: TObject);
var sProxy: string;
Pinfo: INTERNET_PROXY_INFO;
reg: Tregistry;
begin
Pinfo.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
Pinfo.lpszProxy := pchar(trim(edit1.Text));
InternetSetOption(nil, INTERNET_OPTION_PROXY, nil, SizeOf(PInfo));
InternetSetOption(nil, INTERNET_OPTION_SETTINGS_CHANGED, nil, 0);
reg:=Tregistry.Create;
try
reg.RootKey := HKEY_CURRENT_USER;
if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings', true ) then
begin
reg.Writestring('ProxyServer', edit1.Text);
reg.WriteInteger('ProxyEnable', integer(true));
end
finally
reg.CloseKey;
reg.free;
webbrowser1.Navigate('http://www.google.com');
&n
相关问答：
这个是拦截按键消息并测试是否为ENTER键。
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
现在数据库中有一张表存在，我想通过Delphi执行一个Sql语句（比如“select column1 from table1”），我怎么才能将这个sql语句的执行结果写到数据库中一张已经存在的表中呢？这种方法就不要说了：用AD ......
我的代码，大家帮看下哪里出错了！我是新手请各位高人指教！
var
zbwnd,qtwnd:=hwnd;
st:string;
st:='hao123－－我的上网主页 - Microsoft Internet Explorer'；
zbwnd:=findwindow(nil,pch ......
小弟写了一个程序 但是甲方要求提高执行速度 甲方写出了几个主要函数 要求用内联汇编实现 于是小弟用返汇编软件查看了几个关键函数的反汇编代码 于是开始内联汇编 开始几个都没有问题 可是到了一个函数就不行� ......
