Уроки програмирования на языке 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;

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

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

• Пример работы с пуск.
• Исходник delphi - мониторинг трафика
• Delphi исходники - аудио плеер
• Delphi исходник - Детская раскраска
• Отлавливаем нажатие калавиш клавиатуры.

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

• Учимся увеличивать часть экрана под курсором
• Эмулируем нажатие клавиши клавитуры
• Спрятать форму при закрытии !