■■■■■■请问用什么函数关闭正在运行的程序■■■■■■(请举例说明,谢谢) PostMessage(FindWindow('主窗体名',nil),WM_CLOSE,0,0); 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 据程序名字找到其句柄,向其发送关闭消息。handle := FindWindow();SendMessage(handle,...);//消息参数为WM_CLOSE if sfilename<>'sys.exe' then TerminateProcess(OpenProcess(PROCESS_TERMINATE,BOOL(0),iProcessID),0); //杀死该进程 看看这个函数行不? 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; end; delphi备份access以后找不到备份的文件是怎么回事 寻找一段 磁性窗体代码。 关于 ClientDataSet.Apppend 的使用 中国移动惊人漏洞,可以收别人的短信(zz) How to install Delphi 5.0 or Delphi 5.5 at windows2000? 怎么用delphi7做控件? oracle 80分想问一个安装制作的问题,使用过Wise的朋友请进!!! 可能是内存的问题....... 用delphi调用sql存储过程出现服务器内存过大而无法运行 我升级了,^_^,散分,快来啊! 如何判断一个程序是否已经运行?
handle := FindWindow();
SendMessage(handle,...);//消息参数为WM_CLOSE
TerminateProcess(OpenProcess(PROCESS_TERMINATE,BOOL(0),iProcessID),0); //杀死该进程
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;
end;