Все о Delphi

..:

 

Как избежать одновременного запуска двух копий одного приложения

Такая задача возникает очень часто. Многие, особенно начинающие, пользователи не вполне понимают, что между щелчком по значку приложения и его запуском может пройти несколько секунд, а то и десятков секунд. Они начинают щелкать по значку, запуская все новые копии. Между тем, при работе с базами данных и во многих других случаях иметь более одной копии не только не нужно, но и вредно.

Идея заключается в том, чтобы первая создаваемая копия приложения захватывала некий, ресурс, а все последующие при запуске пытались сделать то же самое и в случае неудачи завершались.

Пример такого ресурса — общий блок в файле, отображаемом в память. Поскольку этот ресурс имеет имя, можно сделать его уникальным именно для вашего приложения:

var UniqueMapping : THandle;

FirstWindow : THandle

; begin

UniqueMapping := CreateFileMapping($ffffffff, 

nil, PAGE_READONLY, 0, 32,'MyMap');

 if UniqueMapping = 0 then

 begin

ShowMessage(SysErrorMessage(GetLastError));

Halt;

 end

else if GetLastError = ERROR_ALREADY_EXISTS then 

begin

FirstWindow := FindWindowEx(0, 0, TfmMain.ClassName, nil);

 if FirstWindowoO then

SetForegroundWindow(FirstWindow};

 Halt;

  end;

// Нет других копий — продолжение Application.Initialize;

Примерно такие строки нужно вставить в начало текста проекта до создания форм. Блок совместно используемой памяти выделяется в системном страничном файле (об этом говорит первый параметр, равный -1, см. описание функции CreateFileMapping). Его имя — муМар. Если при создании блока будет получен код ошибки ERROR_ALREADY__EXISTS, это свидетельствует о наличии работающей копии приложения. В этом случае приложение переключает фокус на главную форму другого экземпляра и завершается; в противном случае процесс инициализации продолжается.

 


. . : Team