Запретить запуск второй копии программы

Posted by Chas under Delphi

Человек_Борща

function FirstHinstanceRunning(RunMode: Integer = 0): boolean;

const

  MemFileSize = 127;

var

  MemHnd: HWND;

  MemFileName: string;

  lpBaseAddress: ^HWND;

  FirstAppHandle: HWND;

begin

  Result := False;

  MemFileName := Application.ExeName;

  case RunMode of

    0:

      MemFileName := AnsiReplaceText(MemFileName, '\', '/');

    1:

      MemFileName := ExtractFileName(MemFileName);

  else

    Exit;

  end;

  MemHnd := CreateFileMapping(HWND($FFFFFFFF), nil,

    PAGE_READWRITE, 0, MemFileSize, PChar(MemFileName));

  if GetLastError <> ERROR_ALREADY_EXISTS then

  begin

    if MemHnd <> 0 then

    begin

      lpBaseAddress := MapViewOfFile(MemHnd, FILE_MAP_WRITE, 0, 0, 0);

      if lpBaseAddress <> nil then

        lpBaseAddress^ := Application.Handle;

    end;

  end

  else

  begin

    Result := True;

    if MemHnd <> 0 then

    begin

      lpBaseAddress := MapViewOfFile(MemHnd, FILE_MAP_READ, 0, 0, 0);

      if lpBaseAddress <> nil then

      begin

        FirstAppHandle := lpBaseAddress^;

        ShowWindow(FirstAppHandle, SW_RESTORE);

        SetForegroundWindow(FirstAppHandle);

      end;

    end;

  end;

  if lpBaseAddress <> nil then

    UnMapViewOfFile(lpBaseAddress);

end;

//Не разрешён запуск более 1 копии HLR

  if not AllowedMultiRUN then

  begin

    if FirstHinstanceRunning(1) then

    begin

      Exit;

    end;

  end;

тема на форуме

Похожие статьи

• Как сделать, чтобы все выделенные файлы добавлялись в listbox при запуске программы
• Чтение параметров запуска программы
• Как запустить программу указанную в Edit.Text
• Нужно при запуске программы извлечь dll из ресурсов во временный каталог и проинжектить в другой процесс