么意思博客

用到系统API和INI文件，所以要在uses中添加以下单元； uses shellapi, inifiles; 在变量中添加如下变量： Var names,update_ver,ver,update_url:string;//配置信息读取变量 添加两个IDhttp控件，分别改名为idhttp_config和idhttp_update,还要添加timer控件，分别改名为timer_config和timer_update; timer_config代码： ...

//增加项或列(字段) ListView1.Clear; ListView1.Columns.Clear; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Add; ListView1.Columns.Items[0].Caption:='id'; ListView1.Columns.Items[1].Caption:='type'; ListView1.Columns.Items[2].Caption:='title'; ListView1.Columns.Items[ ...

今天用到了哦，整了好久。终于搞定了! 值得注意的是，在获取控件句柄时控件名要加T。 而最后模拟点击前的Button前不能加T。。。。 我也不知道为什么。。。。 procedure TForm1.Button3Click(Sender: TObject); var H_a,H_b,H_c,H_d,H_e,H_f,H_g:HWND; begin H_a:= FindWindow(nil,'HERO游戏控制器'); //获取 ...

哈哈，今天做软件。 需要获取星期几，网上找来的代码！ 已测试过，非常好用! function GetWeek: string; begin case SysUtils.DayOfWeek(now) of begin 1: Result := '星期天'; 2: Result := '星期一'; 3: Result := '星期二'; 4: Result := '星期三'; 5: Result := '星期四'; 6 ...

在uses中加入 “ TLHelp32,psapi ”; function FindProcess(AFileName: string;var ID:Cardinal): boolean; var hSnapshot: THandle;//用于获得进程列表 lppe: TProcessEntry32;//用于查找进程 Found: Boolean;//用于判断进程遍历是否完成 begin Result :=False; hSnapshot := CreateToolhelp3 ...

在窗体中加入‘ProgressBar1’控件，这是一个进度感知控件使用起来很方便的哦！ 在实际运用中，可以加入百分比及下载速度或者已下载了多少! 并在IDHTTP-ON WORK中加入以下代码： ProgressBar1.Position:=AWorkCount; 再在onwrokbegin中加入以下代码： ProgressBar1.Max:=AWorkCountMax; ProgressBar1.Min:=0; Progres ...

做软件时，难免需要禁止自己的程序被多次打开。我就是这样，网上找了好久。终于找到一个好用的代码，直接加入uses里就可以用。 使用方法： 直接将以下代码另存为”MultInst.pas”,并在uses中加入’MultInst’. unit MultInst; interface uses Windows ,Messages, SysUtils, Classes, Forms; implementatio ...

前几天写程序，做文件大小效验防止破解。 虽然不能完全防止破解，但还是可以防一些菜鸟们的。 获取文件大小代码如下： function TForm1.GetFileSizess(const FileName: string): Int64; var SR: TSearchRec; begin Result := -1; if FindFirst(FileName, faAnyFile and (not faDirectory), SR) = 0 then ...

第一大类：有序数据类型 1、整数类型 integer 2、布尔类型 boolean 第二大类：实数类型 1、浮点类型 double 2、时间类型 tdatetime now 返回当前日期及时间 date 返回当前日期 time 返回当前时间 formatdatetime 按特定格式将日期和时间值转换为字符串 strtodate 将带有日期信息的字符串转换为tdatetime的类型 strtotim ...