ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Q-74: Как закрыть внешнюю программу?

 Например,  Блокнот  можно  закрыть  так:
 
 procedure  TForm1.Button1Click(Sender:  TObject);
 var
     phandle  :  HWND;
 begin
     phandle  :=  FindWindow('Notepad',  nil);
     if  phandle  =  0  then
           RaiseLastWin32Error;
     SendMessage(phandle,  WM_CLOSE,  0,  0);
 end;

var
  appname: string;
  start: TStartupInfo;
  procInfo: TProcessInformation;
begin
  appname := 'cmd.exe';
  fillchar(start, sizeof(start), 0);
  fillchar(procInfo,sizeof(procInfo), 0);
  CreateProcess(nil,pchar(appname),nil,nil,false,0,nil,nil,start,procInfo);
  sleep(1000);
  TerminateProcess(procInfo.hProcess,0);
end;