урок №5

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

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

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