Delphi Base

WindSon

导航

2020年4月9日 #

读取软件的版本信息 GetFileVersionInfo

摘要: function GetBuildInfo(FileName: string; var V1, V2, V3, V4: Word): Boolean; var VerInfoSize, VerValueSize, Dummy: DWORD; VerInfo: Pointer; VerValue: P 阅读全文

posted @ 2020-04-09 00:20 windsonvip 阅读(715) 评论(0) 推荐(0) 编辑

Delphi Richedit代码语法加亮显示

摘要: procedure CodeColors(Form : TForm;Style : String; RichE : TRichedit;InVisible : Boolean); const // symbols... CodeC1: array[0..20] of String = ('#','$ 阅读全文

posted @ 2020-04-09 00:17 windsonvip 阅读(592) 评论(0) 推荐(0) 编辑