aaaa9550-优快云博客

原创 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 362

转载贴吧INI

2015-05-10 23:01:30 596

转载小米配置文件

[开始][小米_为发烧而生]ServerName=〖官方主页〗○进入ServerWeb=http://www.xiaomi.com/index.php[小米_为发烧而生]ServerName=〖四核米二〗●进入ServerWeb=http://www.xiaomi.com/mi2[小米_为发烧而生]ServerName=〖小米社区〗○进入ServerWeb=ht

2015-05-07 22:21:43 718

转载 BT神器INI配置

2015-05-07 22:13:41 840

原创百度配置文件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 1266

原创测试

[aupdate];判断版本号(Edition)version【1.0.0.1】url【http://gdown.baidu.com/data/wisegame/f98d235e39e29031/baiduxinwen.apk】[bupdate]

2015-04-15 13:53:41 373

转载 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 1638

转载 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 1749

转载 Delphi2007-Delphi2010 程序不出现在任务栏的方法

以前的代码： /////////////////////////////////////// ShowWindow(Application.Handle,SW_HIDE); /////////////////////////////////////// 在 Delphi2007/2009/2010 已经失效！原因是 Delphi 在 Form 改写代码，在工程文件中多了： /

2014-04-03 12:18:04 802

原创 delphi 执行一个外部程序，当外部程序结束后言主程序立即响应

delphi 执行一个外部程序，当外部程序结束后言主程序立即响应我们经常能看到360安全卫士进行windows系统升级时，执行windows升级程序，当升级程序执行完成后，360马上弹出提示框。这样的程序是如何做到的呢？下述代码就能完成！uses shellAPI;procedure TForm1.Button1Click(Sender: TObject);varSEI

2014-04-03 12:16:54 712

转载用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 489

转载 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 2628

转载最新50部必看电影

http://tieba.baidu.com/p/2709359536?see_lz=1h.Request.CustomHeaders.text:='Cookie: '+LoginCookie; //cookie

2013-11-17 23:28:26 1375

转载 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 589

转载 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 3500

转载 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 1266

转载 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 626

原创 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 627

转载删除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 1396

原创配置写入+关闭应用及进程

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 465

转载彻底解决Delphi的DBGrid控件鼠标滚轮问题

Delphi的DBGrid控件对鼠标滚轮的支持有问题，不仅不能连续滚动，显示的内容还会错误。　　在网上找了很多代码段，发现大家都只是针对一个Form页面提出解决方法，而且这些方法都存在一个同样的问题，那就是，如果DBGrid控件里正在进行编辑，则鼠标滚轮根本不起作用。　　结合这些方法，本人提出了一个通用的解决方案，这个方案只需要在应用程序的主Form里加入处理程序就可以达到整个应用程序的所

2013-04-05 01:09:25 1481

原创 delphi学习基础资料

------------------------------------------------------------------------------------------------------------------------Function GetFileVersion(FileName: String): String; //获取文件的版本信息,以.号分开Var I

2013-04-05 01:07:36 967

原创解决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 1466

原创新两个类似的二进制文件读写

[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 931

原创 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 701

原创 delphi窗口最小化后焦点回到ListView1

//------------------------------------------------------------------------------------------------------------------------------// 窗口最小化后焦点回到ListView1private { Private declarations } pro

2013-04-05 00:52:24 681