Понедельник, 20.08.2018
Королевство Delphi
Главное меню
Статьи
Наш опрос
Как часто ви на этот сайт заходите?
Всего ответов: 148
Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Главная » Статьи » Защита » Разные

Запрещаем второй запуск

В этом уроке я хочу показать вам как недопустить запуск второй копии вашей программы:

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;

Пользуйтесь наздоровье !

Получить ссылку на материал

Категория: Разные | Добавил: Барон (21.12.2011)
Просмотров: 434 | Теги: Запрещаем, второй запуск | Рейтинг: 0.0/0
[ Пожертвования для сайта ] [ Пожаловаться на материал ]

Если вам помог материал сайта кликните по оплаченной рекламе размещенной в центре

Поиск
Категории раздела
Бомберы [0]
Трояны [0]
Робота с паролем [4]
Delphi и Хакинг [2]
Шифрование [6]
Разные [25]
Королевство Delphi © 2010-2018
Яндекс цитирования