Модератор: Модераторы
Код: Выделить всё
program MyAppName;
uses unique_utils, ... // Добавим модуль
....
var
MyUnique: TUniqueInstance;
...
begin
....
MyUnique:=TUniqueInstance.Create('MyAppName'); // Создадим экземпляр класса
if MyUnique.IsRunInstance then // Ааа уже запущенно! тогда закрываем
begin
MyUnique.Free;
Halt(1);
end;
MyUnique.RunListen; // Запуск первого экземпляра приложения
...
// Тут мы во всю работаем-работаем
...
MyUnique.StopListen; // Уничтожаемся
MyUnique.Free;
end.
Код: Выделить всё
begin
MyUnique:=TUniqueInstance.Create('MyAppName'); // Создадим экземпляр класса
if MyUnique.IsRunInstance then // Ааа уже запущенно! тогда закрываем
begin
MyUnique.Free;
Halt(1);
end;
MyUnique.RunListen; // Запуск первого экземпляра приложения
Application.Initialization;
SplashScreen:=TSplashScreen.Create(Application);
SplashScreen.Show;
Sleep(3000);
SplashScreen.Free;
Application.CreateForm(TMainForm,MainForm);
Application.Run;
MyUnique.StopListen; // Уничтожаемся
MyUnique.Free;
end.
qivi писал(а):MyAppName - откудова брать это имя приложения?...
Может всётаки из-за этого не компилируется?
Mr.Smart писал(а):Например вот так
Mr.Smart писал(а):Я использую для этих целей SimpleIPC
Код: Выделить всё
program ProjClean;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms
{ you can add units after this },FileUtil, unclean,support;
begin
CreateClientServer;
if ConnectServer then begin
Application.Title:=SysToUtf8('AKKOP');
Application.Initialize;
Application.CreateForm(TMainFrm, MainFrm);
Application.Run;
end else begin
mess_sh('Попытка повторного запуска');
end;
end.
Код: Выделить всё
procedure CreateClientServer;
begin
IPCServer:=TSimpleIPCServer.Create(nil);
IPCServer.Global:=True;
IPCServer.ServerID:='clean';
IPCServer.Active:=False;
IPCServer.StartServer;
IPCClient:=TSimpleIPCClient.Create(nil);
IPCClient.ServerID:='clean';
IPCClient.Active:=False;
end;
function ConnectServer:Boolean;
begin
ConnectServer:=True;
try
IPCClient.Connect;
except
ConnectServer:=False;
end;
end;