delphi ÐÞ¸Ä×¢²á±íµÄÎÊÌâ
delphi ÐÞ¸Ä×¢²á±íµÄÎÊÌâ
procedure TForm1.Button1Click(Sender: TObject);
var
Info: INTERNET_PROXY_INFO;
Reg : TRegistry;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_USERS;
if Reg.OpenKey('\S-1-5-21-515967899-839522115-1343024091-1003\Software\Microsoft\Windows\CurrentVersion\Internet Settings', False) then
begin
Reg.WriteString('ProxyServer', '60.254.188.10:80');
Reg.WriteInteger('ProxyEnable', 1);
end;
finally
Reg.CloseKey;
Reg.Free;
end;
Info.dwAccessType := INTERNET_OPEN_TYPE_PROXY;
Info.lpszProxy := PChar('60.254.188.10:80');
InternetSetOption(nil, INTERNET_OPTION_PROXY, @Info, 1000);
InternetSetOption(nil, INTERNET_OPTION_REFRESH, nil, 0);
InternetSetOption(nil, INTERNET_OPTION_SETTINGS_CHANGED, nil, 0);
webbrowser1.Navigate('http://www.ip138.com');
end;
ÎÒÊÔͼÐÞ¸Ä
HKEY_US
Ïà¹ØÎÊ´ð£º
ÒÑÖªPython ÖУº
s = unicode("²âÊÔ", "gb2312")
s = u'\u6d4b\u8bd5'
print s
²âÊÔ
ÔÚDelphiÀïÃæÈçºÎ½«\u6d4b\u8bd5ÕâÑùµÄ»¹Ô³ÉGb2312µÄºº×ÖÄØ£¿
ÕÒµ½¸ö·½·¨
......
Delphi ÏñÍö¹úµÄÄÏËΣ¬ÊÔÎÊÕâÓïÑÔ»¹ÓÐǰ;Âð£¿
Win32¿ª·¢²»ÈçC#£»
ÃæÏñ¶ÔÏñ¿ª·¢²»ÈçJAVA£»
ϵͳ¿ª·¢²»ÈçVC++6.0£»
ÄÜÓÃÐÔ²»ÈçVB6.0£»
²»Ö§³ÖWeb¿ª·¢¡£¡£¡£
³ö¸öDelphi 2010Ãâ·ÑÒ»Äê»áÓÐÈËÓÃÂð£¿
......
ְλҪÇó£º
1£® ¼ÆËã»ú»òÏà¹Ø×¨Òµ±ÏÒµ£¬´óרÒÔÉÏѧÀú£»
2£® ÊìÁ·Ê¹ÓÃ.netºÍdelphi¿ª·¢¿Í»§¶Ë³ÌÐò£»
3£® ÊìϤaccess,Sql Server,Oracle,mysql,DB2µÈ¶àÖÖÊý¾Ý¿âϵͳ£¬ÊìÁ·ÕÆÎÕÊý¾Ý¿âÁ¬½Ó£¬Í¨¹ýSQLÓï¾ä¶ÔÊý¾Ý¿ ......
delphiÈçºÎÐ޸ľÖÓòÍø´úÀíºÍ¿í´ø²¦ºÅ´úÀí
ͬʱÐÞ¸ÄÁ½¸öµØ·½µÄ´úÀíÐÅÏ¢
up
up
UP
¿ÉÒÔÔÚ×¢²á±íÀïÃæÐ޸İɣ¬UP¡£
×¢²á±íÀïÐÞ¸Ä ºó Ð޸ĵÄÊǾÖÓòÍøµÄ´úÀí ²»ÊÇ¿í´ø²¦ºÅµÄ´úÀí
ÍøÉÏ˵ ......