Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.
 
журналы новости статьи video форум подписка на «Хакер»

Народа нужна функция для Delphi

Пользователи, просматривающие топик: none

Зашли как: Guest
Все форумы >> [Компилируемые языки] >> Народа нужна функция для Delphi
Имя
Сообщение << Старые топики   Новые топики >>
Народа нужна функция для Delphi - 2009-11-07 21:15:26   
OPF_Nik

Сообщений: 49
Оценки: 0
Присоединился: 2009-11-06 12:00:12.700000
 Народ подскажите!) нужна функция для удаления .exe файла который в данный момент выполняеться))
Post #: 1
RE: Народа нужна функция для Delphi - 2009-11-07 21:23:54.070000   
Lost_boy

Сообщений: 327
Оценки: 0
Присоединился: 2009-03-25 11:07:27.910000
 Нет в Дэлфи функции для "удоления .exe файла который в данный момент выполняеться"
Post #: 2
RE: Народа нужна функция для Delphi - 2009-11-07 21:27:33.956666   
OPF_Nik

Сообщений: 49
Оценки: 0
Присоединился: 2009-11-06 12:00:12.700000
 Да ??? хм лажово(
Post #: 3
RE: Народа нужна функция для Delphi - 2009-11-07 21:30:10.616666   
tor.leo

Сообщений: 428
Оценки: 0
Присоединился: 2009-11-03 16:26:32.993333
 del
Post #: 4
RE: Народа нужна функция для Delphi - 2009-11-07 21:40:30.576666   
OPF_Nik

Сообщений: 49
Оценки: 0
Присоединился: 2009-11-06 12:00:12.700000
 Ну ошибься.. исправил. Все суть и так поняли) Так что жду ответы
Post #: 5
RE: Народа нужна функция для Delphi - 2009-11-07 21:55:12.646666   
tor.leo

Сообщений: 428
Оценки: 0
Присоединился: 2009-11-03 16:26:32.993333
 Как убить задачу, зная только имя .exe

{ Эта небольшая функция закрывает приложения, соответствующие заданному имени .exe.
Пример: KillTask('notepad.exe');
KillTask('iexplore.exe'); }

uses
Tlhelp32, Windows, SysUtils;

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;

CloseHandle(FSnapshotHandle);
end;

P/S/ тебя google забанил чёль?
Post #: 6
RE: Народа нужна функция для Delphi - 2009-11-07 22:08:21.476666   
OPF_Nik

Сообщений: 49
Оценки: 0
Присоединился: 2009-11-06 12:00:12.700000
 tor.leo спасибо щас попробую))
 
P.s нет все нормально)) да и незнаю почму но я тебе оценку повысить не могу( но знай лично от меня тебе +1))
 
Post #: 7
RE: Народа нужна функция для Delphi - 2009-11-07 22:13:54.220000   
OPF_Nik

Сообщений: 49
Оценки: 0
Присоединился: 2009-11-06 12:00:12.700000
 А вот где:
 
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
UpperCase(ExeFileName))
or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then  
 
Надо путь к файлу встовлять?? а то не работает(
Post #: 8
RE: Народа нужна функция для Delphi - 2009-11-08 18:23:53.696666   
DzumoHu4

Сообщений: 279
Оценки: 0
Присоединился: 2008-08-04 19:04:43.236666
quote:

ORIGINAL: OPF_Nik

А вот где:

if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
UpperCase(ExeFileName))
or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then  

Надо путь к файлу встовлять?? а то не работает(



О ещё один умник)

Учитывая твой уровень знаний стремящийся к nul


Procedure KillThisShit; begin WinExec('taskkill /F /IM Твоя программа.exe', SW_HIDE); end;
Под ShellExecute тоже самое только допиши
в uses
shellapi
Post #: 9
RE: Народа нужна функция для Delphi - 2009-11-08 20:12:34.340000   
OPF_Nik

Сообщений: 49
Оценки: 0
Присоединился: 2009-11-06 12:00:12.700000
 Ну не все же такие умные как ты
Post #: 10
Страниц:  [1]
Все форумы >> [Компилируемые языки] >> Народа нужна функция для Delphi







Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.