Kill program [Delphi]

[DarkByte]

Poate ati avut vreodata nevoie sa stiti cum sa opriti un program ... poate acel program tinea deschis un fisier la care vroiati acces, sau poate era alta instanta a programului vostru ... dar cum sa inchizi un program ? :/

Easy as this:

Cod:

function KillProgram(Exec: string): Boolean;
var CanSearch       : Boolean;
    FSnapshotHandle : THandle;
    FProcessEntry32 : TProcessEntry32;
begin
  Result := False;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  CanSearch := Process32First(FSnapshotHandle, FProcessEntry32);
  while CanSearch do
    begin
      if  ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) = UpperCase(Exec))
        or (UpperCase(FProcessEntry32.szExeFile) = UpperCase(Exec))) then
          Result := TerminateProcess(OpenProcess($1, false, ProcessEntry32.th32ProcessID), 0);
      CanSearch := Process32Next(FSnapshotHandle, FProcessEntry32);
    end;
  CloseHandle(FSnapshotHandle);
end;

Spor la inchis programe

[SkullAds]