Как не допустить запуск второй копии программы XI - API - Не стандартные примеры на Delphi - Каталог статей

Меню сайта

Мини-чат

Категории

Алгоритмы [95]

API [111]

Pascal [153]

Базы Данных [173]

BDE [0]

Интернет [0]

Мультимедия [0]

Аппаратное обеспечение [0]

Операционная система [0]

Компоненты [0]

Классы [0]

OLE+ [0]

Миграция [0]

Ошибки [0]

DLL [0]

Продукты третьих фирм [0]

Разное [0]

События [0]

Главная » Статьи » Не стандартные примеры на Delphi » API

Как не допустить запуск второй копии программы XI

Есть такая штука Atom (см. Help).

program SelfCheck;

uses

Windows,

Forms,

Unit1 in 'Unit1.pas' {Form1};

const

AtStr='MyProgram';

function CheckThis : boolean;
var

Atom: THandle;

begin

Atom:= GlobalFindAtom(AtStr);

Result:= Atom <> 0;

if not result

then GlobalAddAtom(AtStr);

end;

begin

if not CheckThis

then begin // Запуск программмы

Application.Initialize;

Application.CreateForm(TForm1,Form1);

Application.Run;

GlobalDeleteAtom(GlobalFindAtom(AtStr)); // !!!

end

else begin

MessageBox(0,'Нельзя запустить две копии','Моя программа',0);

end;

end.

Элегантно и работает однозначно. Спасибо Славе Шубину.

Категория: API | Добавил: DelphiAiX (28.04.2012)

Просмотров: 416 | Рейтинг: 0.0/0

Всего комментариев: 0

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Все материалы размещенные на сайте пренадлежат их владельцам и предоставляются исключительно в ознакомительных целях.
Администрация ответственности за содержание материала не несет и убытки не возмещает.
По истечению 24 часов материал должен быть удален с вашего компьютера.
Незаконная реализация карается законами РФ и Украины : "Об авторском и смежном праве".
При копировании материала, ссылка на сайт обязательна! Сделать бесплатный сайт с uCoz | Карта сайта | Карта форума