Запуск приложение только 1 раз
как программно закрыть все ранее запущеные экземпляры программы?
procedure closeUSERform; var h:hWnd; begin h:=FindWindows(nil,'Название'); //здесь название твоего окна (заголовок!) if h=0 then exit; // если таких окон нет то выход из процедуры SendMessage(h,WM_DESTROY,0,0); //закрытие окна end;
