Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

delphi bypass ÊÇʲôÒâ˼

procedure ChangeProxy(Addr: string; Bypass, Enabled: Boolean); 
    var 
      Info: INTERNET_PROXY_INFO; 
      Reg : TRegistry; 
    begin 
    Reg := TRegistry.Create; 
    try 
    Reg.RootKey := HKEY_CURRENT_USER; 
    if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet Settings', False) then 
    begin 
        Reg.WriteString('ProxyServer', Addr); 
      Reg.WriteInteger('ProxyEnable', Integer(Enabled)); 
   
        if Bypass then 
          Reg.WriteString('ProxyOverride', ' <local>') 
        else 
        Reg.DeleteValue('ProxyOverride'); 
      end; 
    finally 
      Reg.CloseKey; 
      Reg.Free; 
    end; 
   
    Info.dwAccessType := INTERNET_OPEN_TYPE_PROXY; 
    Info.lpszProxy := PChar(Addr); 
    InternetSetOption(nil, INTERNET_OPTION_PRO


Ïà¹ØÎÊ´ð£º

delphiÖйØÓÚEditµÄÎÊÌâ

ÔÚÏÂÃæµÄ´úÂëÖпÉÒÔʵÏÖEdit1.TextÖÐÊäÈë6¸ö×Öĸ»òÊý×ÖʱEdit2.SetFocus,ÄÇôÎÒÏëÈÃEdit2.textÖÐÊäÈë6¸ö×ÖĸʱʵÏÖEdit3»ñµÃ½¹µã£¬ÓÐûÓмòµ¥Ò»µãµÄ·½·¨£¬Ð»Ð»´ó¼ÒÁË£¡£¡£¡

procedure TForm2.Edit1Change(Sen ......

[¸Úλ]ȱһµ½Á½¸öDelphi¿ª·¢ÈËÔ±

²¿ÃÅȱһµ½Á½¸öDelphi¿ª·¢ÈËÔ±,¾Ý˵×öDelphiºÍC++µÄ¶¼²»ºÃÕÐ,¹«Ë¾ÓÐÒâÕÒÍâ°üÈËÔ±.±¾ÈËÓе㲻̫ÀÖÒâ,Èç¹û·¹ýµÄÅóÓÑ,×Ô¼ºÐèÒªÌø²Û»òÓÐÅóÓÑÐèÒªÌø²ÛµÄ,·½±ãµÄ»°,¿ÉÒÔ·¢¸öÕ¾ÄÚ¶ÌÐÅ,»ò¼ÓQQ 83039548,×¢Ã÷ÇóÖ°/ÍÆ¼ö,лл. ......

delphi adoÁ¬½ÓÔ¶³Ì·þÎñÆ÷Êý¾Ý¿âÎÊÌâ

¸÷λ°ï¸ö棬ÇëÎÊÓÃdelphiÔõôÑùÔ¶³ÌÁ¬½Ó·þÎñÆ÷Êý¾Ý¿â£¬ÎÒÁ¬½Ó±¾µØµÄ³ÌÐòΪʲôÓÐ´í£¿

adoquery1.ConnectionString:='Provider=SQLOLEDB.1;Password=;Persist  Security  Info=True;User&nbs ......

DelphiÕâôÁéÒìµÄ£¿

Delphi(Pascal) code:

var
str:array of string;
i:Integer;
j:Integer;
begin
SetLength(str,1);
for i:=0 to 4 do
begin
j:=Length(Str);
SetLength(str,Length(str)+1);
S ......

delphiµ÷ÓÃdllÎÊÌ⣬ר¼Ò¾ÈÃü£¬100·ÖÈ«²¿ËÍÉÏ¡£

ÎÒÓÃdelphiµ÷ÓÃÒ»¸öVC++µÄdll
Õâ¸ödllÀïÃæµÄÒ»¸öClsPortº¯Êý£¬dll˵Ã÷˵ÀïÃæÓУ¬ËµÃ÷ÈçÏ£º

5¡¢ClsPort
VOID PASCAL ClsPort(HANDLE hCom)
¹¦ÄÜ˵Ã÷£º¹Ø±ÕÖ¸¶¨µÄͨÐŶ˿ڡ£
²ÎÊý˵Ã÷£º
·µ»ØÖ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ