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;
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;