Хотите прямо сейчас получить бесплатный видеокурс по программированию для начинающих?

Как запретить запускать вторую копию программы? (Delphi)

Июль 2, 2013

dont do it!Ниже приведен код запрета запуска второго копии программы, написанной на языке программирования Delphi.

Код выполняется сразу при запуске программы.

Весь алгоритм сводится к тому найти все оконные приложения в системе и сравнить со своим заголовком. В случае если таковой имеется — то отменить запуск.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Procedure TForm1.FormCreate(SEnder: TObject);
 Var ExtEndedStyle:dword;
 Wnd : hWnd;
 buff : Array[0.. 127] of Char;
Begin
 Wnd := GetWindow(Handle, gw_HWndFirst);
 While Wnd <> 0
 DO
  Begin
  If (Wnd <> Application.Handle) and (GetWindow(Wnd, gw_Owner) = 0) Then 
   Begin 
   GetWindowText (Wnd, buff, sizeof (buff ));
   If StrPas (buff) = Application.Title Then
    Begin Halt;
    End;
   End;
  Wnd := GetWindow (Wnd, gw_hWndNext); 
  End;
End;


Заказать печати можно здесь — pechati-1.ru/pechati_i_shtampi/novye/. Одно- и двухцветные печати различных форм по низким ценам.

Понравилась статья? Жми:

Поделиться в соц. сетях



Один комментарий к записи Как запретить запускать вторую копию программы? (Delphi)

  1. Alex on 04.07.2013 at 13:05

    Не самый оптимальный из нескольких способов.

Добавить комментарий для Alex Отменить ответ

Ваш e-mail не будет опубликован. Обязательные поля помечены *

Поддержите проект

Хит продаж:

Случайный анекдот

Моя вторая книга

Что это???

Программирование для Android:

Мы вконтакте

Помощь сайту

Понравился сайт? Он сильно нуждается в раскрутке.

Чтобы помочь в раскрутке - опубликуйте ссылку на сайт (или любую его страницу) на любом другом сайте в интернете. Тогда сайт станет чуточку популярнее.

Или просто нажмите на кнопки социальных сетей которые стоят в конце каждой статьи

Вместе мы сможем сделать программирование более популярным и более понятным для всех!

Заранее спасибо!
Артём Кашеваров.