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;   

指尖风暴终身VIP

收藏 海报分享