[Kaf_Dağı]

Delphi exe info

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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;