Hızlı Konu Açma

Hızlı Konu Açmak için tıklayınız.

Son Mesajlar

Konulardaki Son Mesajlar

Reklam

Forumda Reklam Vermek İçin Bize Ulaşın

Delphi exe info

YaSa22

Fahri Üye
Fahri Üye
Katılım
12 Temmuz 2014
Mesajlar
2,293
Tepkime puanı
2
Puanları
0
Konum
GTA
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;
 

Users Who Are Viewing This Konu (Users: 0, Guests: 1)

Üst