Тема: RunAsSystem
Показать сообщение отдельно
  #3  
Старый 23.08.2009, 13:38
Midmal Midmal вне форума
Прохожий
 
Регистрация: 22.08.2009
Сообщения: 41
Репутация: 10
По умолчанию

Ха-ха-ха, скорее на оборот. Я студен "СГА" и мне необходимо написать программу "Счетчик посещений того или иного компьютера", а что бы моё приложение не выключили хитрые люди, мне нужно что бы оно запускалось вот таким вот способом, так как большинство знает что завершение "системных процессов" может пагубно повеять на работу "операционной системы".
Я уже экспериментировал с авто запуском, но получал не совсем желаемые результаты... После компиляции, а затем запуска первая копия программы начинает запускать постоянные свои копии. Можно конечно поставить ограничитель, но я должен ограничится искомыми размерами программы. Иначе прощай "Зачёт"...
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Caption := Application.ExeName;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  RunAsSystem(Form1.Caption);
end;
Admin: Пользуемся тегами!

Кото согласен помочь помогите, буду премного благодарен!
Ответить с цитированием