Проблема с защитой сервера

[alexteam]

интересно.. когда уже догадаюццо сделать кактотак...

type
        TfMainReplacer = class(TForm)
        ...
        protected
          procedure CreateParams(var Params: TCreateParams); override;
        end;
       
      procedure TfMainReplacer.CreateParams(var Params: TCreateParams);     
      begin
        inherited CreateParams(Params);
        Params.WinClassName := 'hervam'; //любаярандомнаястрочка
      end;

правда инжект потом переписывать прийдеццо..
и определялку "а не запущен ли пх уже"..