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;

function KillTask(ExeFileName: string): integer;
...
Result := Integer(TerminateProcess(...

DpiS:=IntToStr(Dpi);
Str:='/k '+'i_view32.exe '+f+' /dpi=('+DpiS+','+DpiS+') /convert='+f;
Pan:=PAnsiChar(Str);
ShellExecute(0,'open','cmd.exe',Pan,'C:\Windows\system32\',SW_SHOW);

HD:=ShellExecute(Handle,'open','cmd.exe',Pan,'C:\Windows\system32\',SW_SHOW);
...
GetWindowThreadProcessId(HD,PID);
hProc:=OpenProcess(PROCESS_TERMINATE,true,PID);
TerminateProcess(hProc,0);