随笔分类 -  Delphi XE2

1
代码的力量足以改变世界.
Delphi获取CPU CPUID《转》
摘要：uses ActiveX, ComObj; function GetWMIProperty(WMIType, WMIProperty:AnsiString):String; var Wmi, Objs, Obj:OleVariant; Enum:IEnumVariant; C:Cardinal; begin try Wmi:= CreateOleObject(An... 阅读全文
posted @ 2017-08-04 11:41 冰意 LceMeaning 阅读(1180) 评论(0) 推荐(0)
Delphi 托盘/热键《LceMeaning》
摘要：以下代码本人在Delphi XE2下编译通过==================================================================unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, Sys... 阅读全文
posted @ 2015-02-11 09:45 冰意 LceMeaning 阅读(285) 评论(0) 推荐(0)
Delphi 实现多窗口任务栏显示图标《转》
摘要：uses Windows;procedure TformLogin.FormCreate(Sender: TObject);begin SetWindowLong(Handle,GWL_EXSTYLE,(GetWindowLong(handle,GWL_EXSTYLE) or WS_EX_... 阅读全文
posted @ 2015-01-09 17:22 冰意 LceMeaning 阅读(332) 评论(0) 推荐(0)
DELPHI XE2 遍历子目录及文件《转》
摘要：function MakeFileList(Path,FileExt:string):TStringList ;var sch:TSearchrec;begin Result:=TStringlist.Create; if rightStr(trim(Path), 1) '\' then ... 阅读全文
posted @ 2014-12-31 16:16 冰意 LceMeaning 阅读(329) 评论(0) 推荐(0)
Delphi XE2 从Excel导入到数据库《LceMeaning》
摘要：以下代码经本人在Delphi XE2 下通过编译uses Comobj;procedure EXCEL1Click(Sender: TObject);const BeginRow= 1; BeginCol= 2;var iRE, I :Integer; iRow,iCol :Integer... 阅读全文
posted @ 2014-05-28 16:33 冰意 LceMeaning 阅读(1357) 评论(0) 推荐(0)
Delphi 生日提醒的方法《LceMeaning》
摘要：以下代码经本人在Delphi XE2 下编写并通过。procedure TForm55.btnLoadClick(Sender: TObject);var StartDate,EndDate,MBDate : TDate; NowYear,MBMonth,MBDay,I : Integer; sql : string;begin SysconfigRun; IsStart := Sysconfig.ReadBool('RemindContent','MemberBirthday',True); RVar := Sysconfig.ReadString(' 阅读全文
posted @ 2014-01-03 11:17 冰意 LceMeaning 阅读(559) 评论(0) 推荐(0)
Delphi TPerlRegEx 正则表达式替换字符《LceMeaning》
摘要：以下代码经本人在Delphi XE2 下编写并通过。function Matching(Code,MName,Temp,Source: string) : string;var qryQuery : TADOQuery; sql,Balance,SouStr : string; reg: TPerlRegEx;begin reg := TPerlRegEx.Create; qryQuery := Tadoquery.Create(Application); qryQuery.Connection := Form1.con1; sql := 'select * from Custo... 阅读全文
posted @ 2014-01-03 11:10 冰意 LceMeaning 阅读(391) 评论(0) 推荐(0)
Delphi 调用一截图工具进行截图的方法《LceMeaning》
摘要：以下代码经本人在Delphi XE2下编写并通过。procedure TForm5.img1Click(Sender: TObject);var i : Integer;begin try if img1.Picture.Graphic = nil then begin if MessageBox(Handle, PChar(' 是否需要截图? 点击 ''''是(Y)'''' 后请等待1秒进入截图! '), PChar('截图工具')... 阅读全文
posted @ 2014-01-03 11:06 冰意 LceMeaning 阅读(575) 评论(0) 推荐(0)
Delphi 选择指定打印机的方法《LceMeaning》
摘要：以下代码经本人Delphi XE2下编写并通过 case Sysconfig.ReadInteger('Printer','IsPrint',0) of 0: begin if Sysconfig.ReadBool('Printer','Spending',False) then begin if MessageBox(Handle, PChar('是否打印消费单据? ... 阅读全文
posted @ 2014-01-03 11:00 冰意 LceMeaning 阅读(2718) 评论(0) 推荐(0)
Delphi 编写菜单权限设置的一个方法《LceMeaning》
摘要：以下本人在Delphi XE2 进行编写并通过unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.Menus, Vcl.StdCtrls, Data.DB, Data.Win.ADODB, CommCtrl, Vcl.Grids, Vcl.DBGrids;type TForm1 = cl... 阅读全文
posted @ 2014-01-03 10:54 冰意 LceMeaning 阅读(1455) 评论(0) 推荐(0)
Delphi 字符类转换集《转》
摘要：一、string转为ansistring1、直接赋值 （有警告）2、ansistring()类型强制转换。（无警告）二、ansistring 转为string1、直接赋值 （有警告）2、string()类型强制转换。（无警告）三、string 转为Tbytes1、bytes:= bytesof(str) 已转为ansi编码2、bytes:= widebytesof(str) UNICODE 编码四、ansistring 转为Tbytes1、bytes:= bytesof(str) ansi编码2、bytes:= widebytesof(string(str)) UNICODE 编码五、Tbyt 阅读全文
posted @ 2014-01-03 10:41 冰意 LceMeaning 阅读(895) 评论(0) 推荐(0)
Delphi防止多实例运行的两种方法《转》
摘要：在学习Delphi时，遇到需要程序单实例运行的时候，经过查阅，暂时发现以下两种比较简单的方法，可以防止程序多实例运行，各有优劣，据需选择。方法一，添加以下unit即可，优点是可激活已存在的程序窗口，即使已最小化(包括最小化到托盘)，缺点是可能存在与其他程序的互斥(可自行修改STR_UNIQUE的值以尽量减少该可能性)。代码如下：//工程引用此单元就能防止同时出现多个实例unit MultInst;interfaceuses Windows ,Messages, SysUtils, Classes, Forms;implementationconst STR_UNIQUE = '{2BE 阅读全文
posted @ 2013-06-17 23:48 冰意 LceMeaning 阅读(368) 评论(0) 推荐(0)
delphi问题集锦(27问)《转》
摘要：1、怎么样在delphi中调动其它*.exe文件？例如：winexec(''d:\郑洽\Project1.exe'',sw_show);==============================================================================2、如何让工程运行时主窗体就是最大化的？答：设置主窗体的WindowsState属性为wsMaximized就可以了!wsNormal 窗体以普通状态显示wsMinimized 窗体以最小化状态显示。wsMaximized 窗体以最大化状态显示。=============== 阅读全文
posted @ 2013-06-04 17:13 冰意 LceMeaning 阅读(274) 评论(0) 推荐(0)
Delphi 基本语法与操作《转》
摘要：listbox从文件中读取列表的操作ListBox1.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+'aaa.txt');ListBox1.Items.Add(Edit1.Text);//添加了一个项目ListBox1.Items.SaveToFile(ExtractFilePath(Application.ExeName)+'aaa.txt');删除项目ListBox1.Items.Delete(listbox1.itemindex);------------------------------ 阅读全文
posted @ 2013-06-04 16:07 冰意 LceMeaning 阅读(478) 评论(0) 推荐(0)
Delphi 编译错误信息表《转》
摘要：; not allowed before ELSEElSE前不允许有“;” clause not allowed in OLE automation section在OLE自动区段不允许“”子句 is not a type identifier不是类型标识符 not previously declared as a PROPERTY前面没有说明PROPERTYGOTO leads into or out of TRY statement GOTO进入或超出TRY语句的范围 clause expected, but found要求子句，但出现16-Bit fixup encountered .. 阅读全文
posted @ 2013-01-09 16:42 冰意 LceMeaning 阅读(249) 评论(0) 推荐(0)
菜单的历史信息《转》
摘要：本例效果图:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus;type TForm1 = class(TForm) MainMenu1: TMainMenu; OpenDialog1: TOpenDialog; mniFile: TMenuItem; mniOpen: TMenuItem; N1: TMenuItem; mniExit: TMenuItem; proce... 阅读全文
posted @ 2013-01-09 15:56 冰意 LceMeaning 阅读(185) 评论(0) 推荐(0)
TMainMenu 类 - 快捷键的记录方式《转》
摘要：我们从 Form 的源码中看到, 指定的快捷键是一个数字, 譬如 Ctrl+A, 对应着数字: 16449其实这是一个 Word 类型的数字; 快捷键的参数是 TShortCut 类型的, 它定义在 Classes 单元的第92行(Delphi 2007):TShortCut = Low(Word)..High(Word);Menus 单元有两个函数: TextToShortCut、ShortCutToText, 可以互相转换它们.var w: Word; s: string;begin w := TextToShortCut('Ctrl+A'); ShowMessage(In 阅读全文
posted @ 2013-01-09 15:53 冰意 LceMeaning 阅读(210) 评论(0) 推荐(0)
TMainMenu 类 - 手动建立菜单 : 指定快捷键《转》
摘要：菜单项通过 ShortCut 属性来设定快捷键, ShortCut 是 TShortcut 类型的; TShortcut 是一个子界: 0..65535ShortCut 的所有可选值请参加列表:http://www.cnblogs.com/LceMeaning/archive/2013/01/09/2853071.html=========================================================================unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, . 阅读全文
posted @ 2013-01-09 15:50 冰意 LceMeaning 阅读(191) 评论(0) 推荐(0)
TMainMenu 类 - 所有可选的快捷键列表(ShortCut 的可选值)《转》
摘要：键值快捷键3Scroll Lock8BkSp9Tab12Num 513Enter16Shift17Ctrl18Alt20Caps Lock27Esc32Space33PgUp34PgDn35End36Home37Left38Up39Right40Down44Sys Req45Ins46Del48049150251352453554655756857965A66B67C68D69E70F71G72H73I74J75K76L77M78N79O80P81Q82R83S84T85U86V87W88X89Y90Z96Num 097Num 198Num 299Num 3100Num 4101Num 510 阅读全文
posted @ 2013-01-09 15:48 冰意 LceMeaning 阅读(450) 评论(0) 推荐(0)
多线程编程《转》
摘要：1-1多线程的基本概念WIN98/NT/2000/XP是个多任务操作系统，也就是：一个进程可以划分为多个线程，每个线程轮流占用CPU运行时间和资源，或者说，把CPU时间划成片，每个片分给不同的线程，这样，每个线程轮流的“挂起”和“唤醒”，由于时间片很小，给人的感觉是同时运行的。多线程带来如下好处：（自己阅读）1）避免瓶颈；2）并行操作；3）提高效率；在多线程中，通过优先级管理，可以使重要的程序优先操作，提高了任务管理的灵活性。另一方面，在多CPU系统中，可以把不同的线程在不同的CPU中执行，真正做到同时处理多任务（Win98只是模拟的，而Win/NT/2000是真正的多CPU同时操作）。多线程 阅读全文
posted @ 2013-01-09 15:06 冰意 LceMeaning 阅读(190) 评论(0) 推荐(0)

1