コンポーネント - UniqueInstance
Lazarusで作成したアプリケーションの2重起動を抑制するために必要なコンポーネントです
ライセンス
Modified LGPLUniqueInstanceの準備
インストール
オンラインパッケージマネージャーを用いてインストールします
使い方
- [プロジェクトインスペクタ]の[追加]ボタンをクリックし、[新規の要求]を選択します
- [uniqueinstance_package]を選択し、[OK(O)]ボタンをクリックします
- [プロジェクト(P)]→[プロジェクトソースを表示(V)]を選択します
- 以下のように変更します
program Project1; {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} Interfaces, // this includes the LCL widgetset Forms, unit1 { you can add units after this } , UniqueInstanceRaw; // [追加] {$R *.res} begin // 2重起動防止 if not InstanceRunning('Project1') then begin // [追加] RequireDerivedFormResource:=True; Application.Scaled:=True; Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end; // [追加] end.
uses節にUniqueInstanceRawを追加し、InstanceRunning関数を使います。InstanceRunning関数で用いている変数はプロジェクト名を使用します - プロジェクトを保存します