请问如何结束外部应用程序?代码如何实现? rt 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 uses TLHelp32;procedure EndProcess(AFileName: string); const PROCESS_TERMINATE = $0001; var ContinueLoop: BOOL; FSnapShotHandle: THandle; FProcessEntry32: TProcessEntry32;begin 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(AFileName)) or (UpperCase(FProcessEntry32.szExeFile ) = UpperCase(AFileName))) then TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0); ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); end;//调用EndProcess('你的文件名.exe'); FTP客户端程序 如果获取Edit文本框中当前光标所在的位置 各位大哥来帮帮小弟,这种一般市什么错误啊? 这次是int转string 请 l_xiaofeng(≈流水≈不腐≈) 老兄来一下!!! 什么是COM COM+ DCOM 大虾帮忙!在edit控件中录入了50个字符,可是保存后就截成20个字符了? 临走之前,我想做个调查,望各路好友积极参与~~ 各、各、各位,救、救急!!!我弄丢了控件venus5d的密码,有谁知道吗?加分!! 请问Delphi5企业版升级包的SN? CXGRID中嵌入CHECKBOX的问题 delphi 数据查询结果显示问题
procedure EndProcess(AFileName: string);
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOL;
FSnapShotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
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(AFileName))
or (UpperCase(FProcessEntry32.szExeFile ) =
UpperCase(AFileName))) then
TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0),
FProcessEntry32.th32ProcessID), 0);
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;//调用
EndProcess('你的文件名.exe');