么意思博客

for语句的一般格式： for := to do ; for := downto do ; For语句执行过程: ①先将初值赋给左边的变量（称为循环控制变量）； ②判断循环控制变量的值是否已”超过”终值，如已超过，则跳到步骤⑥； ③如果末超过终值，则执行do后面的那个语句（称为循环体）； ④循环变量递增（对to）或递减（对downt o)１； ⑤返回步骤②； ⑥ ...

模拟路由自动登陆： procedure TForm1.Button1Click(Sender: TObject); begin WebBrowser1.Navigate('http://192.168.0.1'); timer1.Enabled:=true; end; procedure TForm1.Timer1Timer(Sender: TObject); var wnd:HWND; begin wnd:=FindWindow('#32770','连接到 192.168.0.1'); if wnd>0 then begin ...

找了好会儿，才找到个能用的，现在我分享给大家！ procedure TForm1.Button1Click(Sender: TObject); var found:integer; keyword,s,dirstr:string; rc:TSearchRec; begin memo1.Clear; dirstr:='C:\1\';//任意目录 keyword:='*.Txt';//关键字 指定.txt后缀 s:=dirstr+Trim(keyword); found:=findf ...

首先在 uses中加入 “IniFiles” 单元： 后在全局变量中加入 config:Tinifile; ini文件的创建： config:=TIniFile.Create(ExtractFilePath(paramstr(0))+'Config.ini');//创建INI 并指定了目录 config.WriteString('配置','颜色',''); // 括号中的 配置为小节名 颜色为关键字 后面的值为空 config.WriteString('配置',' ...

获取本机IP（不能获取内网中的外网IP）： uses 中加入 winsock： function GetLocalIP:string; type TaPInAddr = array [0..10] of PInAddr; //用于存储活动的ip地址列表 PaPInAddr = ^TaPInAddr; var phe : PHostEnt; pptr : PaPInAddr; Buffer : array [0..63] of char; //store hostname ...

uses 中加入 “Registry,ComObj,ActiveX,ShlObj”: procedure MakeLink(proName,lnkName,Description,position:String); var WorkDir,DestName:String; aReg:TRegistry; aObj:IUnknown; MyLink:IShellLink; MyPFile:IPersistFile; WFileName:WideString; begin //操作注册表: //键 ‘Software\Microsoft\Windows ...

以下几个是获取程序本身的函数： ExtractFilePath(ParamStr(0))；//后加了"\"了 如："c:\1\" ExtractFilePath(Application.ExeName);//后同样加了"\" 如："c:\1\" Application.ExeName;//获取到的是完整的目录+程序文件名 如："c:\1\1.exe" GetCurrentDir //获取 ...

uses 添加 winsock 以下代码已测试可用 function HostToIP(Name: ansistring; var Ip: string): Boolean; //域名转ip var wsdata : TWSAData; hostName : array [0..255] of AnsiChar; hostEnt : PHostEnt; addr :PAnsiChar; begin WSAStartup ($0101, wsdata); try gethostname (hostName ...