随笔分类 -  DELPHI XE10

摘要:我们在用Delphi编译完程序,准备发布产品时,总希望随产品发布个性信息以标示产品的来源以及开发者等信息,就像windows的程序一样,使我们一看属性就知道他是微软的产品,这些在Delphi中是如何实现的呢?下面我就来给大家演示和说明给exe,dll文件添加版本信息的方法。 第一,给exe文件添加版 阅读全文
posted @ 2018-08-19 23:56 penginfo 阅读(405) 评论(0) 推荐(0)
摘要:maxHeight := 0; with cxPageControl1.ActivePage do begin for i := 0 to ControlCount 1 do begin t := TControl(Controls[i]); if maxHeight 21 then cxPageC 阅读全文
posted @ 2017-08-21 15:07 penginfo 阅读(404) 评论(0) 推荐(0)
摘要:function CheckProcessExist(const AFileName: string): Boolean; var //用于获得进程列表 hSnapshot: THandle; //用于查找进程 lppe: TProcessEntry32; //用于判断进程遍历是否完成 Found: 阅读全文
posted @ 2017-03-14 23:18 penginfo 阅读(1577) 评论(0) 推荐(0)
摘要:1.Format 根据指定所需要的格式,格式化字符串。 原型: function Format(const Format: string; const Args: array of const): string; 例子: var s: string; begin //指令类型 type s := F 阅读全文
posted @ 2017-03-11 22:23 penginfo 阅读(2889) 评论(0) 推荐(0)
摘要:Format是一个很常用,却又似乎很烦的方法,本人试图对这个方法的帮助进行一些翻译,让它有一个完整的概貌,以供大家查询之用: 首先看它的声明: function Format(const Format: string; const Args: array of const): string; ove 阅读全文
posted @ 2017-03-11 22:05 penginfo 阅读(164) 评论(0) 推荐(0)
摘要:``` delphi procedure TfmPcSpriceAdj.btnGdsTypeKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); var str1,str2: string; begin inherited; case Key of VK_RETURN: begin ... 阅读全文
posted @ 2016-11-02 00:56 penginfo 阅读(225) 评论(0) 推荐(0)