Как определить работает ли уже данное приложение или это первая его копия?
Каждый экземпляр программы имеет ссылку на свою предыдущую копию - hPrevInst: hWnd. Ее можно проверить перед созданием приложения и при необходимости отреагировать соответствующим образом.
Если запущена только одна копия, то эта ссылка равна нулю.
Пример:
procedure TForm1.FormCreate(Sender: TObject); begin {Проверяем есть ли указатель на предыдущую копию приложения} IF hPrevInst <> 0 THEN BEGIN {Если есть, то выдаем сообщение и выходим} MessageDlg('Программа уже запущена!', mtError, [mbOk], 0); Halt; END; {Иначе - ничего не делаем (не мешаем созданию формы)} end;
4418 просмотров | Tags: - Расчет треугольника (13570)
- Калькулятор логических функций (13392)
- Обучающая программа по алгебре "Glance" (5559)
- Таблица умножения в мультфильмах (5441)
- Обучающая программа по арифметике Sapling (3427)
- Тела вращения (Rotation bodies) (2663)
- Магический квадрат (2113)
- Таблица деления в мультфильмах (2042)
- Тестирующая программа по физике PhysicsTest (1786)
- Тестирующая программа по информатике HardTest (1705)
- Тестирующая программа по зоологии AnimalsTest (1653)
- Тестирующая программа по информатике InfTest (1497)
- Тестирующая программа по киноискусству StarsFilmsTest (535)
- Тестирующая программа по звездам эстрады StarsMusicTest (511)
- Тестирующая программа по информатике InfTest (1)
-
Гостевая книгаvitality ed pills cure for ed or natural ed medications treatment for erectile dysfunction or how to get amoxicillin can i buy amoxicillin over the counter or prednisone 20 mg tablets coupon prednisone 5mg coupon or vacuum pump for ed ed pills for sale
-
Гостевая книгаerectile dysfunction medication comparison of ed drugs ed cures that work otc ed pills https://canadianpharmacyvikky.com real viagra without a doctor prescription usa ed aids buy prescription drugs online without herbal remedies for ed
-
Гостевая книгаed medications over the counter canadian pharmacy vikky best ed drugs new erectile dysfunction treatment https://canadianpharmacyvikky.com ed pills online