ďťż

Ładny brzuch

cześć

korzystam z kodu:

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;

killtask(nazwa pliku bez scieznki);

z zabiciem jednego procesu nie ma problemu ale chciałem zabić kilka procesów wpisanych do memo jeden pod drugim - opcja memo1.text nie działa nie zabija procesów

więc zrobiłem
killtask(memo1.lines[0]); killtask(memo1.lines[1]); killtask(memo1.lines[2]); killtask(memo1.lines[3]);

I działa prawidłowo no ale jeden mały problem otóż muszę sam zapisać w kodzie ilość lini a czasami procesów może być więcej niż lini

Więc moje pytanie brzmi czy jest możliwość aby zabić kilka procesów wpisanych w memo niezależnie czy to będzie 2 czy 10 procesów - zabicie całej zawartości memo???

proszę o pomoc


może:
for i := 0 to memo.lines.count-1 do killtask(memo.lines[i]);
Użytkownik psychob edytował ten post 28 listopad 2008, 17:06
Psychob dzięki wielkie :) zapomniałem, że można zrobić pętle

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •