|
В этом уроке я хочу показать вам как недопустить запуск второй копии вашей
программы:
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;
Пользуйтесь наздоровье !
| 
