Читать из файла и кикнуть :)

[KoBRaAndrey]

Как прочитать процессы из файла например
1.exe
каждый процесс в файле с новой строки
и после того как прочитать кикнуть
тоесть завершить процесс

[raxp]

ну наверно-ж не 1.exe, а?

[KoBRaAndrey]

ну да Х) ну я в общем

[Lime]

Сообщение от raxp

ну наверно-ж не 1.exe, а?

Да хоть sys.sys

[raxp]

Да хоть sys.sys

это понятно, что обозвать файл можно как угодно...но что автор имеет ввиду?
судя по вопросу, у него есть файл, в нем списки процессов и кажды процесс из файла кикнуть... если это имеется ввиду, то тогда так:

//закрыть процесс-
procedure closewin(name:string);
var ExeFile    : String;
    PE         : TProcessEntry32;
    FSnap,Handl: THandle;
begin
 //Отслеживаем процессы
 //IF FSnap>0 Then CloseHandle(FSnap);
 FSnap:= Tlhelp32.CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
 //
 PE.dwSize:= SizeOf(PE);
 if (Tlhelp32.Process32First(FSnap,PE)) Then
  Repeat
   ExeFile:= PE.szExeFile;
   //Смотрим  если автозапуск запрещен, то гасим-
   if pos(pchar(name),lowercase(ExeFile))>0 then
    Begin
     Handl:= OpenProcess(PROCESS_ALL_ACCESS,False,PE.th32ProcessID);
     //Прекращаем процесс
     terminateProcess(Handl,1);
     WaitForSingleObject(Handl,INFINITE); //Ждем завершения
    End;
   Until Not Process32Next(FSnap,PE)
end;

//читаем из файла-
procedure list(name: string);
var tt:TStringList;
    i:integer;
begin
 tt:=TStringList.Create;
 if FileExists(name) then tt.LoadFromFile(name);
 //
 for i:=0 to length(tt)-1 do closewin(tt[i]);
 //
 tt.Free
end;

//где нить конопка-
procedure GAMBUZ.onclick();
begin
 list('1.exe') // только не думайте, что из исполняемого файла, имеется ввиду что у вас в текстовом файле, но вы назвали его так
end;

пы-сы: надеюсь помог?

[KoBRaAndrey]

Все работает но не нравиться ему строчка
for i:=0 to length(tt)-1 do closewin(tt[i]);

[raxp]

гы, имхо...

for i:=0 to tt.count-1 do closewin(tt[i]);

[JTG]

Дзен.bat -_-

@echo off
FOR /F %%s in (list.txt) DO taskkill /F /IM %%s

[KoBRaAndrey]

спасибо все работает! )))

JTG