Lzarus-RxVersionInfo
指尖风暴 Lzarus控件：RxVersionInfo
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Clear;
if RxVersionInfo1.Valid then
begin
Memo1.Lines.Add('FileName = ' + RxVersionInfo1.FileName);
Memo1.Lines.Add('FileLongVersion = '+RxVersionInfo1.FileLongVersion);
Memo1.Lines.Add('ProductLongVersion = '+RxVersionInfo1.ProductLongVersion);
Memo1.Lines.Add('VersionLanguage = '+RxVersionInfo1.VersionLanguage);
Memo1.Lines.Add('VersionCharSet = '+RxVersionInfo1.VersionCharSet);
Memo1.Lines.Add('VersionNum = '+RxVersionInfo1.VersionNum.ToString);
Memo1.Lines.Add('Comments = '+RxVersionInfo1.Comments);
Memo1.Lines.Add('CompanyName = '+RxVersionInfo1.CompanyName);
Memo1.Lines.Add('FileDescription = '+RxVersionInfo1.FileDescription);
Memo1.Lines.Add('FileVersion = '+RxVersionInfo1.FileVersion);
Memo1.Lines.Add('InternalName = '+RxVersionInfo1.InternalName);
Memo1.Lines.Add('LegalCopyright = '+RxVersionInfo1.LegalCopyright);
Memo1.Lines.Add('LegalTrademarks = '+RxVersionInfo1.LegalTrademarks);
Memo1.Lines.Add('OriginalFilename = '+RxVersionInfo1.OriginalFilename);
Memo1.Lines.Add('ProductVersion = '+RxVersionInfo1.ProductVersion);
Memo1.Lines.Add('ProductName = '+RxVersionInfo1.ProductName);
Memo1.Lines.Add('SpecialBuild = '+RxVersionInfo1.SpecialBuild);
Memo1.Lines.Add('PrivateBuild = '+RxVersionInfo1.PrivateBuild);
end
else
Memo1.Lines.Add('Ошибка чтения');
end; 
声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。
