51CTO博客开发
(一) 使用动态创建的方法 首先创建 Excel 对象,使用ComObj: var ExcelApp: Variant; ExcelApp
Access: //数据备份(创建一个新的备份文件) procedure TMainForm.BitBtn1Click(Sender: TObject); var F:TShFileOpStruct; DataBackupFileName:string; begin &n
1.窗口字体显示不完整 在Font属性下将Charset选择成"GB2312_CHARSET" Size是字体大小的意思,一般除了大标题,其他字体设置为10即可 Style是设置字体的形式:fsBold是黑体,fsItalic是斜体,下面2个依次是是加下划线和杠字体的意思 2.批量移动组件 用鼠标将需要移动的组件选中,就可以了,如果不方便选择,也可
基本安装 1、对于单个控件,Componet-->install component..-->PAS或DCU文件-->install; 2、对于带*.dpk文件的控件包,File-->Open(下拉列表框中选*.dpk)-->install即可; 3、对于带*.bpl文件的控件包,Install Packages-->Add-->bpl
若要使用ShellExecute函数,首先必须引用shellapi.pas单元,即在uses 中加入 ShellAPI。 一、标准用法 ShellExecute函数原型及参数含义如下: function ShellExecute(hWnd: HWND; Operation, FileName, Parameters,Directory: PChar; ShowCmd: Integer
数据图表DBChart的使用 一、显示数据柱 数据图表DBChart对象用于在报表中插入图表。双击数据图表对象,可以调出图表编辑器: Chart选项: (1)Series类型页 可以选择十一种类型的图表以及下列选项,按Add就可以选择图表的类型(3D :显示3维图表);按Title..就可以修改图表的名称。
CxGrid用法 &n
1.程序窗口句柄检测 原理:用FindWindow函数查找具有相同窗口类名和标题的窗口,如果找到就说明有OD在运行 //******************************************** //通过查找窗口类名来实现检测OllyDBG //******************************************** function AntiLoader(
第一种:(普通批处理方式) procedure DeleteMe; var BatchFile: TextFile; BatchFileName: string; ProcessInfo: TProcessInformation; StartUpInfo: TStartupInfo; begin BatchFileName := ExtractFilePath(ParamStr(0
uses TLHelp32,PsAPI; /////////////////////////// (1)显示进程列表: /////////////////////////// procedure TForm1.Button2Click(Sender: TObject); var lppe: TProcessEntry32; found : boolean; Hand : THandl
参数DlgType是TMsgDlgType类的变量,它用来指定对话框的显示特征。TmsgDlgType是一个集合,它可以取以下的值: mtWarning:对话框中包含黄色的惊叹符(!)号; mtError:对话框中包含红色的叉号符号; mtInformation:对话框中包含蓝色的“i”符号; mtConfirmation:对话框中包
1.引用Dll皮肤文件Typeprocedure SetSkin(skinnam:string); procedure TFrmMain.SetSkin(skinnam:string); var Hinst:THANDLE; RStream:TResourceStream;begin Hinst:
今天是开博第一天,开心,以后就要在这里记录生活和学习中的点点滴滴啦,特地写此贴留念下
Copyright © 2005-2024 51CTO.COM 版权所有 京ICP证060544号