没有合适的资源?快使用搜索试试~ 我知道了~
delphi例程-应用程序级信息.pdf
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 24 浏览量
2021-12-19
09:16:39
上传
评论
收藏 177KB PDF 举报
温馨提示
试读
11页
。。。
资源推荐
资源详情
资源评论
标准实用文案
delphi 例程-应用程序级信息
1. Application 变量 ( 标准应用程序 ) 描绘应用程序级的信息
单元
Forms
var Application: TApplication;
描述
默认地,当创建一个新的项目, Delphi 会构造一个应 用程
序对象并将其赋给位于 Forms 单元中的 Application 变量。
Application 拥有数个属性,在应用程序运行时可心 用于得到关于
应用程序的信息。
示例 这段代码将在编辑框中显示你的项目的名称: procedure
TForm1.Button1Click(Sender: TObject); begin
Edit1.Text := Application.Title;
end;
2.CmdShow 变量
CmdShow 被传递给 Windows API 函数
ShowWindow 。 单元
System var CmdShow: Integer;
描述 在程序中,当应用程序创建主窗口时, CmdShow 变 量包
含了 Windows 希望传递给 ShowWindow 的参数 值。
文档
标准实用文案
在库(DLL)中,CmdShow 总是为 0。
3.CompilerVersion 常量 指明了 Delphi 编译器的版本编号 单元
System const CompilerVersion = 15.0;
描述
使用 CompilerVersion 可以测试 Delphi 编译器的统 配级
别。如果你想条件化利用了 Delphi 语言更新特色的代 码,这会很
有用 (This is useful if you want to conditionalize code that takes
advantage of newer features in the Delphi language) 。
4.ExitProcessProc 变量
ExitProcessProc 指定在应用程序关闭 (shut down) 前 最后
执行的过程 (procedure) 。 单元
System
var ExitProcessProc: procedure; 描述
赋值给 ExitProcessProc 来指定你想在应用程序关闭 前执行
的过程。 ExitProcessProc 的值是一个没有参数的过 程。
5.GetFileVersion 函数
返回文件版本 单元
SysUtils
function GetFileVersion(const AFileName: string):
Cardinal; 描述
文档
标准实用文案
GetFileVersion 返回一个文件二进制版本号中最有意 义的 32
位。 AFileName 指定文件名,可以使用和 LoadLibrary 函数相同
的路径搜索到。
6.GetModuleName 函数 返回给定句柄的模块的完全限定名称
(fully qualified name) 。
单元
SysUtils
function GetModuleName(Module: HMODULE): string;
描述
调用 GetModuleFileName 来获得给定句柄的模块的 完全限
定名称。
Module 是模块的句柄。
7.HInstance 变量
句柄,由 Windows 提供给模块 (module) 。 单元
SysInit
var HInstance: LongWord;
描述
HInstance 容纳了由 Windows 提供的应用程序或库 的实例
句柄
8.HintWindowClass 变量
文档
剩余10页未读,继续阅读
资源评论
苦茶子12138
- 粉丝: 1w+
- 资源: 6万+
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功