-
Delphi
(
https://www.ircforumlari.net/delphi/)
- -
Delphi exe info
(
https://www.ircforumlari.net/delphi/688291-delphi-exe-info.html)
Kaf_Dağı | 11 Mart 2015 13:54 | Delphi exe info Delphi exe info Kod:
procedure TForm1.VersionInfo;
const
InfoStr : array [1..11] of String =
(
'CompanyName', 'FileDescription', 'FileVersion',
'InternalName', 'LegalCopyright', 'LegalTradeMarks',
'OriginalFilename', 'ProductName', 'ProductVersion',
'Comments', 'Author'
);
var
pLen, j , pHandle : Cardinal;
VersionBuf, VersionValue : PChar;
begin
pHandle:=GetFileVersionInfoSize(PChar(Application.ExeName),pHandle);
if pHandle > 0 then
begin
VersionBuf:=AllocMem(pHandle);
GetFileVersionInfo(PChar(Application.ExeName),0,pHandle,VersionBuf);
For J:=1 to 11 do begin
If VerQueryValue(VersionBuf, PChar('StringFileInfo\041F04E6\'+InfoStr[j]),
Pointer(VersionValue),pLen) Then
ListBox.Items.Add(InfoStr[j] +' = '+VersionValue) ;
end;
FreeMem(VersionBuf,pHandle);
end else ListBox.Items.Add('Versiyon bilgisi bulunamadı') ;
end; |
Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 20:53. | |
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net