71 lines
1.6 KiB
ObjectPascal
71 lines
1.6 KiB
ObjectPascal
unit FMain;
|
|
|
|
interface
|
|
uses
|
|
Classes,
|
|
Controls,
|
|
Forms,
|
|
StdCtrls,
|
|
X2UtSingleInstance;
|
|
|
|
type
|
|
TfrmMain = class(TForm, IX2InstanceNotifier)
|
|
lblAppPath: TLabel;
|
|
lblAppPathValue: TLabel;
|
|
lblAppVersion: TLabel;
|
|
lblAppVersionValue: TLabel;
|
|
lblInstances: TLabel;
|
|
lblOSVersion: TLabel;
|
|
lblOSVersionValue: TLabel;
|
|
lstInstances: TListBox;
|
|
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure FormDestroy(Sender: TObject);
|
|
protected
|
|
// IX2InstanceNotifier implementation
|
|
procedure OnInstance(const ACmdLine: String);
|
|
end;
|
|
|
|
implementation
|
|
uses
|
|
X2UtApp,
|
|
X2UtOS;
|
|
|
|
{$R *.dfm}
|
|
|
|
{=============================== TfrmMain
|
|
Initialization
|
|
========================================}
|
|
procedure TfrmMain.FormCreate;
|
|
begin
|
|
lblAppPathValue.Caption := App.Path;
|
|
lblAppVersionValue.Caption := App.FormatVersion();
|
|
lblOSVersionValue.Caption := OS.FormatVersion();
|
|
|
|
RegisterInstance(Self);
|
|
end;
|
|
|
|
procedure TfrmMain.FormDestroy;
|
|
begin
|
|
UnregisterInstance(Self);
|
|
end;
|
|
|
|
|
|
{=============================== TfrmMain
|
|
IX2InstanceNotifier implementation
|
|
========================================}
|
|
procedure TfrmMain.OnInstance;
|
|
var
|
|
iParam: Integer;
|
|
|
|
begin
|
|
lstInstances.Items.Add('New instance found:');
|
|
|
|
for iParam := 0 to ParamCountEx(ACmdLine) do
|
|
lstInstances.Items.Add(' ' + ParamStrEx(ACmdLine, iParam));
|
|
|
|
lstInstances.ItemIndex := lstInstances.Items.Count - 1;
|
|
end;
|
|
|
|
end.
|