- 博客(27)
- 资源 (5)
- 收藏
- 关注
原创 APP配置
【{"code":"1.1","update":"https://www.lanzous.com/tp/i5td8vg","show":"亲爱的用户,软件新版本〔1.1〕正式发布了,修复已知BUG,优化部分UI,请及时更新体验!","name":"yy","pass":"f937b4bdf6f433022f9ceee12cf1a51c"}】...
2019-08-26 22:56:41
319
转载 贴吧INI
[chis];贴吧目录baitb=声色荆门|荆城之恋|二手交易|招聘求职|只想灌水|网警之窗|荆门交警|购物达人|电脑手机数码|心情札记|亲子乐园|婚姻家庭|教育培训|房屋租售转让|便民资讯|吃喝玩乐;登陆账号密码useid=dsfgsd341passw=[update];确定是否要进行升级(0为不升级,1为升级)shengji=0;判断版本号(Edition)Edition=...
2015-05-10 23:01:30
569
转载 小米配置文件
[开始][小米_为发烧而生]ServerName=〖官方主页〗○进入ServerWeb=http://www.xiaomi.com/index.php[小米_为发烧而生]ServerName=〖四核米二〗●进入ServerWeb=http://www.xiaomi.com/mi2[小米_为发烧而生]ServerName=〖小米社区〗○进入ServerWeb=ht
2015-05-07 22:21:43
687
转载 BT神器INI配置
[开始];搜索设置Hot=纸牌屋|惊天魔盗团|原始人高清|钢铁之躯|小时代-高清|中国合伙人|致青春|特殊身份|重返地球[update];确定是否要进行升级(0为不升级,1为升级)Shengji=0;判断版本号(Edition)Edition=1.0.0.1Website=http://www.qingd8.com/BTHot.exe|BTHot神器|BTHot.e
2015-05-07 22:13:41
811
原创 百度配置文件ini
[chis];贴吧目录baitb=vb|delphi|荆门|电影|拳皇97|龙腾世界;登陆账号密码useid=a12o_yunpassw=[update];确定是否要进行升级(0为不升级,1为升级)shengji=0;判断版本号(Edition)Edition=1.0.0.1Website=http://www.qingd8.com/tiebaMotion.exe|百度贴吧迅...
2015-05-07 21:56:32
1243
原创 测试
[aupdate];判断版本号(Edition)version【1.0.0.1】url【http://gdown.baidu.com/data/wisegame/f98d235e39e29031/baiduxinwen.apk】[bupdate]
2015-04-15 13:53:41
363
转载 Delphi打开网址链接的几种方法
Delphi打开网址链接的几种方法:1:用默认浏览器打开,uses shellapiprocedure TForm1.Button2Click(Sender: TObject);beginShellExecut(Application.Handle, nil, 'http://cy03wqh.blog.163.com', nil, nil, SW_SHOWN
2014-07-27 17:41:03
1595
转载 Delphi中比较两个字符串相似性的百分比算法
用百分比比较两个字符串(彼此之间有多少相似度)返回 byte 类型,从 0 到 100%functionCompareStringsInPercent(Str1, Str2: string): Byte;type TLink = array[0..1] of Byte;var tmpPattern: TLink; PatternA, PatternB: arr
2014-04-03 12:18:55
1699
转载 Delphi2007-Delphi2010 程序不出现在任务栏的方法
以前的代码: /////////////////////////////////////// ShowWindow(Application.Handle,SW_HIDE); /////////////////////////////////////// 在 Delphi2007/2009/2010 已经失效! 原因是 Delphi 在 Form 改写代码,在工程文件中多了: /
2014-04-03 12:18:04
773
原创 delphi 执行一个外部程序,当外部程序结束后言主程序立即响应
delphi 执行一个外部程序,当外部程序结束后言主程序立即响应我们经常能看到360安全卫士进行windows系统升级时,执行windows升级程序,当升级程序执行完成后,360马上弹出提示框。这样的程序是如何做到的呢?下述代码就能完成!uses shellAPI;procedure TForm1.Button1Click(Sender: TObject);varSEI
2014-04-03 12:16:54
697
转载 用SQL语句添加删除修改字段
1.增加字段 alter table docdsp add dspcode char(200) 2.删除字段 ALTER TABLE table_NAMEDROP COLUMN column_NAME 3.修改字段类型 ALTER TABLE table_name ALTER COLUMN column_name new_da
2014-04-03 12:15:24
469
转载 delphi中WEBBrowser网页JS函数调用delphi函数
1.1、激活var doc,url:Olevariant ;beginurl:='about:blank' ;//或者一个有实际意义的urlWebBrowser1.Navigate2(url);//这样就激活了!end;1.2、写HTML代码var doc:Olevariant ;s:string;begindoc:=WebBrowser1.Document
2014-04-03 12:13:20
2581
转载 最新50部必看电影
http://tieba.baidu.com/p/2709359536?see_lz=1h.Request.CustomHeaders.text:='Cookie: '+LoginCookie; //cookie
2013-11-17 23:28:26
1338
转载 Delphi 加解密字符串,有密匙
function EncrypStr(Src, Key: string): string; //字符串加密函数//对字符串加密(Src:源 Key:密匙)var KeyLen: Integer; KeyPos: Integer; offset: Integer; dest: string; SrcPos: Integer; SrcAsc: Integer;
2013-08-21 01:18:07
558
转载 Delphi 日期操作(日期时间差、年份增加1)
年份增加1:uses DateUtils;procedure TForm1.Button3Click(Sender: TObject);var a,b:TDateTime;begin a:=StrToDateTime(Label2.Caption); b:=IncYear(a); ShowMessage(DateTimeToStr(b));end;日
2013-08-20 10:46:49
3396
转载 delphi中调用http xml
delphi中调用http xml等有空试一下:uses comobj; var responseText: WideString; xmlHttp: OLEVariant; begin try xmlHttp:=CreateOleObject('Msxml2.XMLHTTP');
2013-08-14 20:37:02
1226
转载 delphi中执行js.txt
有时做项目难免用到代码交叉调用,delphi中执行js就是一种,两种方法可用:一、使用webbrower,比较麻烦二、使用ScriptControl,简单方便:1.首先uses ComObj;2.通用函数:function ExecScript(Code,Func:string):string; 'JavaScript'; var script:OleVarian
2013-04-05 10:43:43
609
原创 delphi基础知识
function postihuan(S:string;zifu,tihuan: string;shu:Integer;all:Boolean=true): string;{替换字符串函数 S为字符串,zifu为查找字符,tihuan为替换字符,shu为定位替换字符的位置,all为真则全部替换}var iPos,i:Integer; SS:string;begin
2013-04-05 01:16:02
597
转载 删除cookies及上网历史记录(DELPHI代码完整版本)
删除cookies及上网历史记录(DELPHI代码完整版本)2010-12-26 10:26//前面要加几个pas单元 uses Registry,ShellApi, WinInet,ShlObj,ComObj; procedure DelRegCache; var reg:TRegistry; begin
2013-04-05 01:10:59
1363
原创 配置写入+关闭应用及进程
wangzhi:=sss1[0];//'http://download.ppstream.com/ppstreamsetup.exe';Killyy(sss1[1]);KillTask(sss1[2]);---------function Split(const Source,ch:string):TStringList;//(源字符串,分割字符串)- 分割函数var t
2013-04-05 01:10:12
454
转载 彻底解决Delphi的DBGrid控件鼠标滚轮问题
Delphi的DBGrid控件对鼠标滚轮的支持有问题,不仅不能连续滚动,显示的内容还会错误。 在网上找了很多代码段,发现大家都只是针对一个Form页面提出解决方法,而且这些方法都存在一个同样的问题,那就是,如果DBGrid控件里正在进行编辑,则鼠标滚轮根本不起作用。 结合这些方法,本人提出了一个通用的解决方案,这个方案只需要在应用程序的主Form里加入处理程序就可以达到整个应用程序的所
2013-04-05 01:09:25
1375
原创 delphi学习基础资料
------------------------------------------------------------------------------------------------------------------------Function GetFileVersion(FileName: String): String; //获取文件的版本信息,以.号分开Var I
2013-04-05 01:07:36
937
原创 解决Delphi中webbrowser不能复制粘贴.打开paypal出错.直显HTML代码问题
解决Delphi中webbrowser 不能复制粘贴问题uses Activex; procedure TForm1.FormDestroy(Sender: TObject);beginoleuninitialize;end;procedure TForm1.FormCreate(Sender: TObject);beginoleinitialize(nil);
2013-04-05 01:03:18
1434
原创 新两个类似的二进制文件读写
[Delphi] 两个类似的二进制文件读写Function ReadFileToBuffer(Filename : String) : PChar;var F : File; Buf: PChar ; Size : Integer ;begin Assignfile(F, filename); Reset(f, 1); try
2013-04-05 00:58:51
917
原创 Delphi实现文件的拖放功能
uses shellapi; private { Private declarations } procedure DragFileProc1(var Message: TMessage);//拖放文件引用1 单元shellapi procedure DragFileProc2(var Message: TMessage);//拖放文件引用1
2013-04-05 00:56:33
681
原创 delphi窗口最小化后焦点回到ListView1
//------------------------------------------------------------------------------------------------------------------------------// 窗口最小化后焦点回到ListView1private { Private declarations } pro
2013-04-05 00:52:24
658
原创 delphi多线程
//---------------------------//public |// { Public declarations } |//end; |//--------------------------- TMyThread = class(TThread)
2013-04-05 00:50:38
537
delphi xe 程序更新自动升级代码
2011-11-28
delphi xe ics修复BUG安装版组件
2011-11-28
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人