Главная » Статьи по Delphi » Программа и интерфейс » Запретить запуск программы более одного раза за сессию Windows

Запретить запуск программы более одного раза за сессию Windows

Автор: Борисов Сергей

procedure TForm1.FormShow(Sender: TObject);
var atom : integer;
begin
  if GlobalFindAtom('Text') = 0 then
    atom := GlobalAddAtom('Text')
  else
  begin
    ShowMessage('Программа может быть запущена 1 раз за сессию Windows');
    Close;
  end;
end;

• купить мужская обувь ральф доставка и гарантия, хорошие цены.

  sapato.ru

• храбрый заяц смотреть мультфильм онлайн

  ivi.ru

Просмотров: 2311

Обсудить на форуме

---

Имя *:
Email:
Все смайлы
Код *:

Copyright © 2008-2012 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта

Гостевая книга