delphi´úÀíÎÊÌâ Çó½â ÔÚÏßµÈ
delphi´úÀíÎÊÌâ Çó½â ÔÚÏßµÈ
procedure TForm1.Button3Click(Sender: TObject);
var
info : INTERNET_PROXY_INFO;
reg : TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey:=HKEY_CURRENT_USER;
if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings',False) then
begin
reg.Writestring('ProxyServer','socks='+edit2.Text);
reg.Writestring('ProxyEnable', '1');
end;
reg.CloseKey;
reg.Free;
info.dwAccessType:=INTERNET_OPEN_TYPE_PROXY;
info.lpszProxy:=pchar('socks='+edit2.Text) ;
InternetSetOption(nil,INTERNET_OPTION_PROXY,@info,1000);
InternetSetOption(nil,INTERNET_OPTION_REFRESH, nil,0);
InternetSetOption(nil,INTERNET_OPTION_SETTINGS_CHANGED, nil,0);
end;
ÎÒ°Ñ´úÀíµØÖ·Ð´ÔÚ edit2.textÉÏÃæ È»ºó×¢²á±íÐ޸ĴúÀí
¿ÉÊÇinfo.lpszProxy:=pchar('socks='+edit2.Text) ; ÕâÒ»¾ä ²»¼Ópachr±àÒë²»³É¹¦
¼ÓÉÏÒÔºó ´úÀí²»Äܳɹ¦ÉèÖÃ
СµÜÎÊinfo.dwAccessType:=INTERNET_OPEN_TYPE_PROXY;
info.lpszProxy:=pchar('socks='+edit2.Text) ;
InternetSetOption(nil,INTERNET_OPTION_PROXY,@info,1000);
InternetSetOption(nil,INTERNET_OPTION_REFRESH, nil
Ïà¹ØÎÊ´ð£º
ÈçÌâ¡£
¸Ð¾õÈçºÎ£¿½»Á÷Ï¡£
ûÓÐÑо¿¹ý£¬ºÇºÇ
ÓÐɶÑо¿Í·£¿
ÄǸö¶«Î÷£¬ÊǸö¼¦Àߣ¬£¬Ã»ÓÐʲôÒâ˼£¬·¢ÏÖ£¡£¡
ÓÃÀ´×öB/S¼Ü¹¹µÄMISϵͳµÄ»°Ó¦¸Ã¿ÉÒÔÌá¸ß½çÃæ¿ª·¢µÄЧÂʰɣ¿
ÒòΪ²»ÊìϤDelphi £ ......
ÎÒÔÚÄ£¿éÀï×Ô¶¨ÒåÁËÒ»¸öº¯Êý:stradd()
¿ÉÊÇÔÚadoquery1.sql.add('select stradd(author) from book');
ʱÌáʾstradd䶨Òå...
Õâ¸öÎÊÌâÓÐʲô°ì·¨¿ÉÒÔ½â¾öµÄÂð? ·Ç³£¸Ð¼¤!
(ÔÚA ......
½ñÌìÔÚÍøÉÏÎÞÒâ¿´µ½ÓÐЩ¹«Ë¾Ê¹ÓõÁ°ædelphi IDE±»²éµÄÊ£¬ËµÊÇÓкóÃÅ¡£
ºóÀ´ÎÒ²âÊÔÁËһϣ¬Æô¶¯delphi 7ºóȷʵ»á×Ô¶¯Á¬½Óµ½ÃÀ¹úµÄÒ»¸öIP£¬²»ÖªµÀÊÇ´«ËÍһЩʲôÐÅÏ¢¡£
Ïñdelphi7Õâô¾ÉµÄ°æ±¾ËûÃÇ»¹»á²éÂð£¿
D ......
¼ÙÈç¹â±êÔÚµÚ¶þÐпªÊ¼´¦
ÆäËü±à¼ÓïÑÔºÍÎı¾±à¼Æ÷¶¼¿ÉÒÔ
°´Ïòǰ·½Ãæ¼ü
Ö±½Óµ½´ïµÚÒ»ÐеÄβ²¿
ΪʲôDELPHI±à¼Æ÷²»¿ÉÒÔѽ
......
ÎÒÕ¦Õâô³ÕÃÔDelphiÄØ£¿°¥£¬É¢·ÖÏû³î¡£
˳±ãÏ£ÍûDelphi 2010 Update2Ôçµãbug-free...
sf
¶àл£¬DELPHIÐÂÊÖ£¬Çë¶à¹ØÕÕ
jf
ÒýÓÃ
¶àл£¬DELPHIÐÂÊÖ£¬Çë¶à¹ØÕÕ
ÈËÈ˶¼ÊÇÐÂÊÖ£¬Ö»ÓÐÕâÑùÐÄ̬²Å ......