摘要：
unit Unit2;interfaceusesSystem.Classes, Windows, Messages;constWM_DO = WM_USER + 1;typeTDemoThread = class(TThread)private{ Private declarations }prot... 阅读全文
posted @ 2015-06-06 20:20
大龙软件工作室
阅读(166)
评论(0)
推荐(0)
摘要：
有些程序要设置为开机启动，所以自己写了个函数方便以后使用，供大家参考procedure TMainForm.SetAutoRun(ok: boolean);var Reg:TRegistry; //首先定义一个TRegistry类型的变量Regbegin Reg:=TRegistry.Create;... 阅读全文
posted @ 2015-06-06 20:12
大龙软件工作室
阅读(2190)
评论(1)
推荐(0)
摘要：
开始研究最重要的多线程读写全局数据了，结合书上的例子，我修改成下面的情况：unit Tst_Thread3U;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs... 阅读全文
posted @ 2015-06-06 20:10
大龙软件工作室
阅读(1514)
评论(0)
推荐(0)
摘要：
file:0 前言 本文的目的在于采用流水账方式来记录学习delphi访问嵌入式数据库sqlite中的一些点滴。欢迎各位同好共同学习和批评指正。file:1 准备工作part1 delphi版本:delphi2007 for win32 update3。任意安装版本即可。 sqlite dll版本:... 阅读全文
posted @ 2015-06-06 20:09
大龙软件工作室
阅读(934)
评论(0)
推荐(0)
摘要：
//调用相应程序打开usesShellAPI;procedureTForm1.Button1Click(Sender:TObject);begin//用IE打开ShellExecute(Handle,'open','IExplore.EXE','about:blank',nil,SW_SHOWNOR... 阅读全文
posted @ 2015-06-06 20:08
大龙软件工作室
阅读(3153)
评论(1)
推荐(0)
摘要：
别再跟我说什么砍墙角，别在跟我说什么0-100收拾稳加属性，别在跟我说什么北京时间几点几点容易成。。。。。本人开过f，深知服务器如何设定，但是一下代码部分为一高人赐教。现在发给大家，望有助飞升。第一讲：炼武器众所周知，需要两种材料，一个是首饰，一个是黑铁矿，黑铁矿仅仅影响练成武器的持久，和成功几率不... 阅读全文
posted @ 2015-06-06 19:51
大龙软件工作室
阅读(8008)
评论(0)
推荐(0)
摘要：
前言：网上有很多介绍delphi创建闪屏的代码，大多只是在程序开启前显示一个闪屏，但是却没有说如何在闪屏上显示程序加载的进度，于是笔者有意思介绍一下这种闪屏方式。1.创建一个窗体(TfrmSplash)，放入一个TImageBox,加载一幅图片，调整好TImageBox与图片的大小，然后在其上放入一... 阅读全文
posted @ 2015-06-06 19:47
大龙软件工作室
阅读(477)
评论(0)
推荐(0)
摘要：
使用google谷歌搜索一下关键词，对应的编码如下：刀：%E5%88%80刀具：%E5%88%80%E5%85%B7刀具网：%E5%88%80%E5%85%B7%E7%9A%84因此可见，google对URL的编码并非简单的httpencode编码，因为httpencode编码后的字符串应该是带有两... 阅读全文
posted @ 2015-06-06 14:52
大龙软件工作室
阅读(616)
评论(0)
推荐(0)
摘要：
案例赏析：以上是我做的皮肤和程序首先说说第一个问题1、加载splash 启动画面的时候 屏幕出现闪动现象原因：启动的时候 同时加载了很多窗体 包括数据库数据的读取解决：窗体全部动态创建加载，只有启动画面是自动创建var TempCanvas: TCanvas; BufDC: HDC; BufBi... 阅读全文
posted @ 2015-06-06 11:58
大龙软件工作室
阅读(683)
评论(0)
推荐(0)
摘要：
准备工作一些比较有用的声明大小写转换: function ToLower: string; function ToLower(LocaleID: TLocaleID): string; function ToLowerInvariant: string; function ToUpper: stri... 阅读全文
posted @ 2015-06-06 11:12
大龙软件工作室
阅读(4781)
评论(0)
推荐(0)
浙公网安备 33010602011771号