96 lines
2.1 KiB
ObjectPascal
96 lines
2.1 KiB
ObjectPascal
{
|
|
* FmEg1.pas
|
|
*
|
|
* Form unit that implements example 1 for the Version Information Component
|
|
* HelpEgs demo program.
|
|
*
|
|
* $Rev: 1119 $
|
|
* $Date: 2013-01-14 00:39:57 +0000 (Mon, 14 Jan 2013) $
|
|
*
|
|
* Any copyright in this file is dedicated to the Public Domain.
|
|
* http://creativecommons.org/publicdomain/zero/1.0/
|
|
}
|
|
|
|
unit FmEg1;
|
|
|
|
{$UNDEF Supports_RTLNameSpaces}
|
|
{$IFDEF CONDITIONALEXPRESSIONS}
|
|
{$IF CompilerVersion >= 15.0} // >= Delphi 7
|
|
{$WARN UNSAFE_CODE OFF}
|
|
{$IFEND}
|
|
{$IF CompilerVersion >= 23.0} // Delphi XE2
|
|
{$DEFINE Supports_RTLNameSpaces}
|
|
{$IFEND}
|
|
{$ENDIF}
|
|
|
|
interface
|
|
|
|
uses
|
|
// Delphi
|
|
{$IFDEF Supports_RTLNameSpaces}
|
|
Vcl.Forms, System.Classes, Vcl.Controls, Vcl.StdCtrls,
|
|
{$ELSE}
|
|
Forms, Classes, Controls, StdCtrls,
|
|
{$ENDIF}
|
|
// DelphiDabbler component
|
|
PJVersionInfo;
|
|
|
|
type
|
|
TEgForm1 = class(TForm)
|
|
PJVersionInfo1: TPJVersionInfo;
|
|
ListBox1: TListBox;
|
|
Button3: TButton;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure Button3Click(Sender: TObject);
|
|
end;
|
|
|
|
var
|
|
EgForm1: TEgForm1;
|
|
|
|
implementation
|
|
|
|
uses
|
|
// Delphi
|
|
{$IFDEF Supports_RTLNameSpaces}
|
|
System.SysUtils, Winapi.Windows, Winapi.ShellAPI;
|
|
{$ELSE}
|
|
SysUtils, Windows, ShellAPI;
|
|
{$ENDIF}
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TEgForm1.FormCreate(Sender: TObject);
|
|
var
|
|
I: Integer;
|
|
begin
|
|
ListBox1.Clear;
|
|
// loop thru all translations
|
|
if PJVersionInfo1.HaveInfo then
|
|
for I := 0 to Pred(PJVersionInfo1.NumTranslations) do
|
|
begin
|
|
// make the current translation current
|
|
PJVersionInfo1.CurrentTranslation := I;
|
|
// add language and char set info to the list box
|
|
ListBox1.Items.Add(
|
|
Format(
|
|
'Language: %s (%0.4X) -- CharSet: %s (%0.4X)',
|
|
[PJVersionInfo1.Language, PJVersionInfo1.LanguageCode,
|
|
PJVersionInfo1.CharSet, PJVersionInfo1.CharSetCode]
|
|
)
|
|
);
|
|
end
|
|
else
|
|
ListBox1.Items.Add('NO VERSION INFO');
|
|
end;
|
|
|
|
procedure TEgForm1.Button3Click(Sender: TObject);
|
|
// Displays example in help
|
|
// this event handler is not included in help example
|
|
const
|
|
cURL = 'http://delphidabbler.com/url/verinfo-eg1';
|
|
begin
|
|
ShellExecute(Handle, 'open', cURL, nil, nil, SW_SHOWNORMAL);
|
|
end;
|
|
|
|
end.
|