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

Опубиковано: 08.06.2008 г., автор: , просмотров: 38837

Уроки програмирования на языке Delphi.

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

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;

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



Похожие материалы

Последние из рубрики

Сергей 25 Мар 2013 в 00:00 #
Херня, на 7рке не работает.
Егор 25 Мар 2013 в 00:00 #
сам ты не работаешт.
Все норм респект автору
Alex 04 Фев 2013 в 00:00 #
Временный файл или запись в реестр - не подходят. Представьте, что программа запущена, и тут неожиданно halt происходит с самой системой - синий экран, ну итд. Перезагрузка, попытка запуска программы.... а файл или запись в реестре не уничтожены.
o/ 13 Сен 2012 в 00:00 #
Больше уроков! Еще можно добавить пару уроков русского для посетителей ;)
Aleks 16 Мар 2012 в 00:00 #
Спасибо!!!

ОтменитьДобавить комментарий