LceMeaning

摘要： 一、创建互斥对象在工程project1.dpr中创建互斥对象Program project1UsesWindows,Form,FrmMain in 'FrmMain.pas' {MainForm}; {$R *.res} var hAppMutex: THandle; //声明互斥变量 begin hAppMutex := CreateMutex(nil, false,’projectname’); //创建互斥对象projectname工程名称 if ( (hAppMutex 0) and (GetLastError() = ERROR_AL... 阅读全文

摘要： 需求：增加年（月、日） 声明：function IncYear ( const StartDate : TDateTime {; NumberOfYears : Integer = 1} ) : TDateTime;描述：IncYear函数将传递进来的StartDateTime参数加上NumberOfYears数量的年数。增减的数量是可选的，默认为1。增加年份后，如果日期数对于当前年月而言太大的话，它会自动缩减为当前年月的最大日期值。例： IncYear(now);//当前日期加1年 IncYear(now, 5);//当前日期加5年 IncYear(now, -1);//当前日期减1年需要操 阅读全文

摘要： 方法一：update 表名 set 字段名=NULL方法二：update 表名 set 字段名='' 阅读全文

摘要： MessageBox(Handle,'警告信息框','警告信息框',MB_ICONWARNING); //警告信息框MessageBox(Handle,'疑问信息框','疑问信息框',MB_ICONQUESTION); //疑问信息框MessageBox(Handle,'错误信息框','错误信息框',MB_ICONERROR); //错误提示框MessageBox(Handle,'提示信息框','提示信息框',MB_ICONASTERISK); //提示信息框Mess 阅读全文

摘要： unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, frxClass, frxDesgn;type TForm1 = class(TForm) btn1: TButton; frxReport1: TfrxReport; edt1: TEdit; edt2: TEdit; ... 阅读全文

摘要： 阅读全文

摘要： javascript:if(confirm('http://www.bankcomm.com/ \n\n文件并未依 Teleport Pro 取回，因为 它的域或路径超过开始网址中设置的范围。 \n\n你要从服务器上打开它吗？'))window.location='http://www.bankcomm.com/' 阅读全文

该文被密码保护。 阅读全文

该文被密码保护。 阅读全文

摘要： {*******************************************************}{ }{ Lcemeaning专用函数库集 }{ }{ }{ 作者:lcemeani... 阅读全文