Delphi – Iščitavanje informacija o programu

Delphi svojim korisnicima – programerima, omogućava da uz svaki projekat (aplikaciju) smeste i osnovne informacije o programu, kao što su:

• Naziv programa
• Verzija programa
• Opis projekta
• Podaci o pravima korišćenja programa
• Komentari, itd.

Sve ove informacije možete uneti pri kreiranju aplikacija, preko menija „Project> Options“ i kartice „Version Info„. Ovde unete informacije koriste i samim programerima, ali i budućim korisnicima. Programerima, ponajviše zbog beleženja izmena, revizija, i prepravki u kodu, tj. radi boljeg snalaženja unutar jednog projekta. Korisnicima ova opcija može biti važna, kako zbog praćenja verzije programa kojeg koriste (u sklopu održavanja softverskog proizvoda), tako i zbog prava i obaveza preuzetih kupovinom nekog programa (sekcije „LegalCopyright“ i „LegalTrademarks“).

Za iščitavanje „VersionInfo“ informacija služi procedura „GetFileVersionInfo„. U sledećim redovima videćemo primer procedure koja će da iščita sve dostupne VersionInfo informacije i da ih smesti u jedan listbox. Na praznu formu postavite jedno dugme i jednu listu (listbox). Klikom na dugme pozivaćemo funkciju koja će sve odraditi:

 procedure TForm1.Button1Click(Sender: TObject);

 begin

 InformacijeOVerziji(ListBox1);

 end;

Preostali deo koda smestite u isti Unit:

 Function StringPad(

   InputStr,

   FillChar: String;

   StrLen: Integer;

   StrJustify: Boolean): String;

 Var

   TempFill: String;

   Counter : Integer;

 Begin

   If Not (Length(InputStr) = StrLen) Then

   Begin

     If Length(InputStr) > StrLen Then

     Begin

       InputStr := Copy(InputStr,1,StrLen);

     End

       Else

     Begin

       TempFill := “;

       For Counter := 1 To StrLen-Length(InputStr) Do

       Begin

         TempFill := TempFill + FillChar;

       End;

       If StrJustify Then

       Begin

         {Left Justified}

         InputStr := InputStr + TempFill;

       End

         Else

       Begin

         {Right Justified}

         InputStr := TempFill + InputStr ;

       End;

     End;

   End;

   Result := InputStr;

 End;

 Function InformacijeOVerziji(

   ListBox : TListBox): Boolean;

 const

   InfoNum = 11;

   InfoStr : array [1..InfoNum] of String =

     (‘CompanyName’, ‘FileDescription’, ‘FileVersion’,

 	 ‘InternalName’, ‘LegalCopyright’, ‘LegalTradeMarks’,

 	 ‘OriginalFilename’, ‘ProductName’, ‘ProductVersion’,

 	 ‘Comments’, ‘Author’);

   LabelStr : array [1..InfoNum] of String =

     (‘Company Name’, ‘Description’, ‘File Version’,

 	 ‘Internal Name’, ‘Copyright’, ‘TradeMarks’,

 	 ‘Original File Name’, ‘Product Name’,

   	 ‘Product Version’, ‘Comments’, ‘Author’);

 var

   S: String;

   n, Len, i : Integer;

   Buf : PChar;

   Value : PChar;

 begin

   Try

     S := Application.ExeName;

     ListBox.Items.Clear;

     ListBox.Sorted := True;

     ListBox.Font.Name := ‘Courier New’;

     n := GetFileVersionInfoSize(PChar(S),n);

     If n > 0 Then Begin

       Buf := AllocMem(n);

       ListBox.Items.Add

 	    (StringPad(‘Size’,’ ‘,20,True)+’ = ‘+IntToStr(n));

       GetFileVersionInfo(PChar(S),0,n,Buf);

       For i:=1 To InfoNum Do Begin

         If VerQueryValue(Buf,PChar(‘StringFileInfo40904E4’+

                   InfoStr[i]),Pointer(Value),Len) Then

         Begin

           Value := PChar(Trim(Value));

           If Length(Value) > 0 Then

           Begin

             ListBox.Items.Add

	 (StringPad(labelStr[i],’ ‘,20,True)+’ = ‘+Value);

           End;

         End;

       End;

       FreeMem(Buf,n);

     End

        Else

     Begin

       ListBox.Items.Add

             (‘Nema FileVersionInfo podataka’);

     End;

    Result := True;

  Except

    Result := False;

   End;

 End;

Pratite Krstaricu na www.krstarica.com