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
相关问答：
Delphi 像亡国的南宋，试问这语言还有前途吗？
Win32开发不如C#；
面像对像开发不如JAVA；
系统开发不如VC++6.0；
能用性不如VB6.0；
不支持Web开发。。。
出个Delphi 2010免费一年会有人用吗？
......
这个是拦截按键消息并测试是否为ENTER键。
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
if (svSearch.head.Flag = $C8BD3 ) then
if (svSearch.head.Type = 3) then
begin
bSearchSv := TRUE;
......
Delphi(Pascal) code:
for I := 0 to ListBox1.Items.Count -1 do
begin
if ListBox1.Selected[I] then ListSelectItem := I;
ListBox1.Selected[I] := False;
end;
ListBox1.Selected[ListSel ......
