Forumunuz.Com - 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;