- 博客(84)
- 收藏
- 关注
转载 Delphi获取CPU CPUID《转》
uses ActiveX, ComObj;function GetWMIProperty(WMIType, WMIProperty:AnsiString):String;var Wmi, Objs, Obj:OleVariant; Enum:IEnumVariant; C:Cardinal;begin try Wmi:= C...
2019-09-22 03:43:16
304
转载 Delphi中判断WebBrowser的页面是否加载完成 《转》
方法一: 在WebBrowser的OnDocumentComplete事件书写代码。方法二:WebBrowser1.Navigate(Url);while WebBrowser1.Busy or (WebBrowser1.ReadyState<>READYSTATE_COMPLETE) do Application.ProcessMessage...
2019-09-22 03:43:13
321
转载 Delphi 防止程序多次运行《转》
//防止多次打开unit MultInst;interfaceuses Windows ,Messages, SysUtils, Classes, Forms;implementationconst STR_UNIQUE = '{2BE6D96E-827F-4BF9-B33E-8740412CDE96}'; MI_ACTIVEAPP = 1; {...
2019-09-22 03:43:10
87
转载 界面显示后延时运行代码《转》
procedure timerfun(handle:Thandle;msg:word;identer:word;dwtime:longword);stdcall;begin killtimer(handle,identer);//关闭定时器 //接下来为代码段end;procedure TForm1.FormShow(Sender: TObject)...
2019-09-22 03:43:08
69
转载 界面显示后延时运行代码《转》
settimer(self.handle,0,5000,@timerfun); //定义引用//执行事件procedure timerfun(handle:Thandle;msg:word;identer:word;dwtime:longword);stdcall;begin showmessage('事件激活'); killtimer(handle,...
2019-09-22 03:43:06
85
转载 Delphi 语句块《LceMeaning》
//输入事件中将字母设置为大写 if Key in ['a'..'z'] then begin Key := UpperCase(key)[1]; end;//DBGrid排序方法procedure TForm1.DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer...
2019-09-22 03:43:02
57
转载 Linux /var/spool/clientmqueue 目录《转》
今天nagios报警,一台服务器的disk满了,使用du -sh * 或 du -sh /* 查看目录的大小,查找占用空间大的目录/var/spool/clientmqueue....然后就想/var/spool/clientmqueue这个目录干嘛用的,纠结了半天,谷歌了下,原来/var/spool/clientmqueue是如果系统中有用户开启了cron,而cron中执行的程序有输出...
2019-09-22 03:43:00
180
转载 Delphi 实现多窗口任务栏显示图标《转》
uses Windows;procedure TformLogin.FormCreate(Sender: TObject);begin SetWindowLong(Handle,GWL_EXSTYLE,(GetWindowLong(handle,GWL_EXSTYLE) or WS_EX_APPWINDOW));end; Delphi...
2019-09-22 03:42:57
154
转载 DELPHI XE2 遍历子目录及文件《转》
function MakeFileList(Path,FileExt:string):TStringList ;var sch:TSearchrec;begin Result:=TStringlist.Create; if rightStr(trim(Path), 1) <> '\' then Path := trim(Path) ...
2019-09-22 03:42:55
139
转载 DIV布局-DIV高度不同自动换行并对齐《转》
每个div框内容有多有少,要支持div高度自适应,还要添加的div自动追加,并且换行还要保持每行对齐。刚开始的效果:给出了完美解决方案:效果:因为要支持每个div可删除,删除后,后面的div自动补齐,所以用table不显示(除非想自虐的人可以试下)最终就是css修改了一下就搞定了。。。 1 <html> 2 <head>...
2019-09-22 03:42:53
706
转载 Delphi 正则表达式语法(6): 贪婪匹配与非贪婪匹配《转》
//贪婪匹配var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := '<html><head><title>标题</title></head><body>内容</body></h...
2019-09-22 03:42:52
158
转载 Delphi 托盘/热键《LceMeaning》
以下代码本人在Delphi XE2下编译通过==================================================================unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants...
2019-09-22 03:42:50
72
转载 Delphi XE2 从Excel导入到数据库《LceMeaning》
以下代码经本人在Delphi XE2 下通过编译uses Comobj;procedure EXCEL1Click(Sender: TObject);const BeginRow= 1; BeginCol= 2;var iRE, I :Integer; iRow,iCol :Integer; //列、行 MsExcel, MsE...
2019-09-22 03:42:49
165
转载 16进制和汉字之间的互转!《转》
/****************************16进制转汉字***********************************/AnsiString TForm1::Hex_To_Chinese(AnsiString Hex){ //中英文数字参杂在一起也可以转换 AnsiString ret; for(int i=1; i<...
2019-09-22 03:42:48
544
转载 Delphi 获取不重复随机数《LceMeaning》
uses ShareMem;type TArray = array of Integer;function CreateRandom(ResultCount, MaxInt: Integer) : TArray;var // 生成个数 最大数值 I, N, count : Integer; ...
2019-09-22 03:42:47
172
转载 轻松一下
1. 用十秒钟删去你的联系方式,用十分钟清空了所有信息,用十个小时扔去了所有你送的礼物,再用十天的时间让输入法不再默认打出你的名字,十个月以后以为自己已经放下了一切,却被你不到十个字的一句问候全部唤醒。——”欠我的钱什么时候还啊?”转载于:https://www.cnblogs.com/LceMeaning/p/3674597.html...
2019-09-22 03:42:45
85
转载 HTML 插入页面自动修改高度
<!--插入页面自动修改高度--> <script language="javascript"> function setparentheight(){ parent.document.all(self.name).height=document.body.scrollHeight; } </scri...
2019-09-22 03:42:45
193
转载 Delphi 中的MD5实现方法《转》
在Delphi自带的Indy控件中其实是提供了MD2,MD4,MD5对象的,我们可以直接使用它们来完成MD5的签名算法。而不需要再去找其它的DLL或是Pas了。在Uses单元中引用 IdHashMessageDigest,IdGlobal, IdHash 单元,再写如下代码即可以达到MD5的实现。示例代码procedure TForm1.Button1Click(Sender: T...
2019-09-22 03:42:43
98
转载 Delphi XE2 16进制转10进制《LceMeaning》
以下在编写IC卡项目时出现卡号转换错误时的解决方法,在XE2下测试正常。================================================uses math;function HexToDec(Hex : string) : string;var i : integer; res : real; len : integ...
2019-09-22 03:42:43
81
转载 WordPress 短代码集
<div id="banner-search"> <?php get_search_form(); ?> </div><!-- end #banner-search 取得搜索框 -->转载于:https://www.cnblogs.com/...
2019-09-22 03:42:40
173
转载 DELPHI 代码块集合
edt2.Text := FormatFloat('0.00',StrToFloat(edt1.Text)); //按格式输出Params.Add('c='+Utf8ToAnsi(UTF8Encode(trim(Memo1.Text)))); //将Memo1.text转为UTF8编码格式转载于:https://www.cnblogs.com/L...
2019-09-22 03:42:40
53
转载 Android 读取QR二维码方法《转》
{ Google ZXing Call demo Delphi Version: Delphi XE5 Version 19.0.13476.4176 By: flcop(zylove619@hotmail.com) }unit UMain;interfaceuses System.SysUtils, System.T...
2019-09-22 03:42:38
230
转载 MS SQL字段类型详解《转》
bit 整型 bit数据类型是整型,其值只能是0、1或空值。这种数据类型用于存储只有两种可能值的数据,如Yes 或No、True 或False 、On 或Off. 注意:很省空间的一种数据类型,如果能够满足需求应该尽量多用。tinyint 整型 tinyint 数据类型能存储从0到255 之间的整数。它在你只打算存储有限数目的数值时很有用。这种数据类型在数据库中占用1 ...
2019-09-22 03:42:38
82
转载 Delphi Access 表中查询日期时间提示出错的问题《转》
Delphi中的“:”符合有特殊的用途,它表示参数的意思:就是比如如果9:30,系统会认为30是9的参数对象,这就是为什么系统报错“定义了不正确的参数对象”。而且Delphi有着很强的自检功能,要想SQL查询数据正常必须要先关闭控件的自检关闭,所以解决方案就是设置 MADOQuery.ParamCheck := False;然后如果怕有不好的效果的话就当程序运行完之后再设置回来 MADO...
2019-09-22 03:42:34
128
转载 Delphi 编写菜单权限设置的一个方法《LceMeaning》
以下本人在Delphi XE2 进行编写并通过unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dia...
2019-09-22 03:42:33
220
转载 Delphi XE5 android 获取网络状态《转》
unit Androidapi.JNI.Network;interfacefunction IsConnected: Boolean;function IsWiFiConnected: Boolean;function IsMobileConnected: Boolean;implementationuses System.Sys...
2019-09-22 03:42:32
125
转载 Delphi 生日提醒的方法《LceMeaning》
以下代码经本人在Delphi XE2 下编写并通过。procedure TForm55.btnLoadClick(Sender: TObject);var StartDate,EndDate,MBDate : TDate; NowYear,MBMonth,MBDay,I : Integer; sql : string;begin Sysconfig...
2019-09-22 03:42:30
85
转载 Delphi TPerlRegEx 正则表达式替换字符《LceMeaning》
以下代码经本人在Delphi XE2 下编写并通过。function Matching(Code,MName,Temp,Source: string) : string;var qryQuery : TADOQuery; sql,Balance,SouStr : string; reg: TPerlRegEx;begin reg := TPerlR...
2019-09-22 03:42:27
433
转载 Delphi 选择指定打印机的方法《LceMeaning》
以下代码经本人Delphi XE2下编写并通过 case Sysconfig.ReadInteger('Printer','IsPrint',0) of 0: begin if Sysconfig.ReadBool('Printer','Spending',False) ...
2019-09-22 03:42:26
466
转载 删除数据库的表中某字段的值《转》
方法一:update 表名 set 字段名=NULL方法二:update 表名 set 字段名=''转载于:https://www.cnblogs.com/LceMeaning/p/3415711.html
2019-09-22 03:42:26
273
转载 Delphi 调用一截图工具进行截图的方法《LceMeaning》
以下代码经本人在Delphi XE2下编写并通过。procedure TForm5.img1Click(Sender: TObject);var i : Integer;begin try if img1.Picture.Graphic = nil then begin if MessageBox(Han...
2019-09-22 03:42:24
112
转载 Delphi 给frxReport赋值《lcemeaning》
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, frx...
2019-09-22 03:42:23
440
转载 Delphi 字符类转换集《转》
一、string转为ansistring1、直接赋值 (有警告)2、ansistring()类型强制转换。(无警告)二、ansistring 转为string1、直接赋值 (有警告)2、string()类型强制转换。(无警告)三、string 转为Tbytes1、bytes:= bytesof(str) 已转为ansi编码2、bytes:= widebytesof(str...
2019-09-22 03:42:22
275
转载 delphi 只允许运行一个实例的三种方法《转》
一、创建互斥对象在工程project1.dpr中创建互斥对象Program project1UsesWindows,Form,FrmMain in 'FrmMain.pas' {MainForm}; {$R *.res} var hAppMutex: THandle; //声明互斥变量 be...
2019-09-22 03:42:19
73
转载 Delphi 调用Excel《转》
(一) 使用动态创建的方法首先创建 Excel 对象,使用ComObj:var ExcelApp: Variant;ExcelApp := CreateOleObject( 'Excel.Application' );1) 显示当前窗口:ExcelApp.Visible := True;2) 更改 Excel 标题栏:ExcelApp.Caption := '应用程序调用 Microso...
2019-09-22 03:42:19
172
转载 时间加减函数(年、月、日)《转》
需求:增加年(月、日) 声明:function IncYear ( const StartDate : TDateTime {; NumberOfYears : Integer = 1} ) : TDateTime;描述:IncYear函数将传递进来的StartDateTime参数加上NumberOfYears数量的年数。增减的数量是可选的,默认为1。增加年份后,如果日期数对...
2019-09-22 03:42:17
831
转载 Delphi 对话框《转》
MessageBox(Handle,'警告信息框','警告信息框',MB_ICONWARNING); //警告信息框MessageBox(Handle,'疑问信息框','疑问信息框',MB_ICONQUESTION); //疑问信息框MessageBox(Handle,'错误信息框','错误信息框',MB_ICONERROR); ...
2019-09-22 03:42:16
106
转载 调用外部程序并等待程序运行结束《Lcemeaning》
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Vcl.ExtCtrls,Clipbrd;type TForm1 = class(TForm) ...
2019-09-22 03:42:16
59
转载 如何获取Memo的行数与列数《转》
varHang,Lie,Num,CharsLine:longint;beginNum:=SendMessage(Memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);CharsLine:=SendMessage(Memo1.Handle,EM_LINEINDEX,Num,0);Hang:=Num+1;//当前行Label...
2019-09-22 03:42:13
294
转载 web.config《lcemeaning》
<configuration> <system.webServer> <rewrite> <rules> <rule name="WWW Redirect" stopProcessing="true"> <match ur...
2019-09-22 03:42:13
43
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人