VPF::убить процесс и защита от копирования

Jass

Дата 5.6.2008, 12:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 5.6.2008

Репутация: нет
Всего: нет

Нужна помощь:
1:
Убить процессы, которые записаны в столбик в Memo или listbox. Вот код:
function KillTask(ExeFileName: string): integer;
const
  PROCESS_TERMINATE=$0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  result := 0;

  FSnapshotHandle := CreateToolhelp32Snapshot
  (TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle,
  FProcessEntry32);

  while integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
    UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
    UpperCase(ExeFileName))) then
      Result := Integer(TerminateProcess(OpenProcess(
      PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0));
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  И при нажатии на кнопку, чтобы процессы записанные в memo или listbox были уничтожены(процессы записаны в столбик):
KillTask(''); //а что там писать не наю, помогите
    2: Защита файла от копирования:при нажатии на кнопку, пути файлов записанные в memo или listbox были защищены, вот код:
var
  Form1: TForm1;
  fs: TFileStream;

implementation
{$R *.dfm}

и при нажатии на копку, пути файлов записанные в memo или listbox были защещены, код:

  fs:=TFileStream.Create('Что тут писать?', fmOpenRead, fmShareDenyNone);

Jass

Дата 5.6.2008, 22:53 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 5.6.2008

Репутация: нет
Всего: нет

Да ё-моё, что за программеры тут сидят?!? вот код:
For i := 0 to listbox1.count - 1 do KillTask(listbox1.Items[i]); -для ListBox убивать процессы
Тоже самое будет с защитой над файлами, только код немного изменить-может будет кому-то интересно)) smile

там конечно, будет переменная I
Var
i : integer;

Это сообщение отредактировал(а) Jass - 5.6.2008, 22:54

Данкинг

Дата 5.6.2008, 23:26 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130

Цитата(Jass @ 5.6.2008, 23:53

)

Да ё-моё, что за программеры тут сидят?!?

Ужас просто, а не программеры. smile

А в чём проблема-то была - пройтись циклом по листбоксу и убить процессы, ссылки на которые там содержатся? Т.е. вопрос был в организации прохода в цикле по строкам листбокса, только и всего? smile

--------------------

There's nothing left but silent epitaphs.

Jass

Дата 5.6.2008, 23:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 5.6.2008

Репутация: нет
Всего: нет

Да... только и всего.... smile

Alexeis

Дата 6.6.2008, 09:18 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Модератор: создавайте тему по правилам!

1) Кнопка код используется для подсветки кода.
2) Про убить процессы есть в факе и DRKB.
3) Тема не в том разделе. Такие вопросы обсуждают в разделе "Delphi: WinAPI и системное программирование".
4) В теме не сформулирован вопрос! Задания решают в разделах "Центр помощи" и "Работа"

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »