delphi通过窗口标题结束指定进程函数

//Delphi通过窗口标题结束指定进程函数

function KillAPPTask(TitleName : string ) : boolean;

var

hWindow: HWND; { 窗体句柄 }

dwProcessID: DWORD; { 进程 ID }

hProcess: THandle; { 进程句柄 }

begin

{ 根据标题获取窗体的句柄 }

hWindow := FindWindow(nil, pwidechar(TitleName));

{ 通过窗体句柄获取进程 ID }

GetWindowThreadProcessId(hWindow, dwProcessID);

{ 通过进程 ID 获取进程句柄 }

hProcess := OpenProcess(PROCESS_ALL_ACCESS, False, dwProcessID);

{ 结束该进程 }

TerminateProcess(hProcess, 0);

end;

KillAPPTask('任务管理器');

推荐分享