能在我做的程序里关掉任何管理器里的其它的进程吗?

bells2000 2005-11-04 03:46:13

我想在我的程序里关掉其它人的EXE.
能在我做的程序里关掉任务管理器里的其它的进程吗?

...全文

119 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

bells2000 2005-11-12

打赏
举报

TO: jackie168(三箭齐发)
谢了!

jackie168 2005-11-08

打赏
举报

发送者：bells2000 发送时间：2005-11-7 17:31:36 删除回复
接受者：jackie168 重要性：重要性：1 非常不重要重要性：2 不重要重要性：3 一般重要性：4 重要重要性：5 非常重要
内容请问:TProcessEntry32;
是在哪个单元里的,
我找都找不到.
要装什么东西后才有吗?能回复我的话请来原贴,谢谢.
http://community.csdn.net/Expert/topic/4372/4372023.xml?temp=8.304995E-02
================================================================
uses TLHelp32;

bells2000 2005-11-07

打赏
举报

公司的系统是win2000 Server(非正版)
同样的代码,
我在家里的电脑运行却是正常的
如果我导入一个EXCEL文件(运行EXCEL.EXE----导入完成---结束EXCEL.EXE)
很奇怪..
我家的系统是win2000 professional(非正版)
两台电脑装的OFFICE2000是同一张光盘..

bells2000 2005-11-07

打赏
举报

TO: ccrun(老妖)(www.ccrun.com)
这样的做法我试过了,不行..
如果我导入一个EXCEL文件(运行EXCEL.EXE----导入完成---没有结束EXCEL.EXE)
我再导入一个EXCEL文件,任务管理器里运行多一个EXCEL.EXE,然后结束一个EXCEL.EXE,
这时如果再导入另外一个EXCEL文件就会报错..说:"XX文件.XLS 已经以独占的方式打开了."

bells2000 2005-11-06

打赏
举报

很感谢大家的支持.
其实还是那个老问题.我的程序有一个导入EXCEL的功能,可是如果我导入多次,在主程序退出时就会说EXCEL.EXE的内存不可读..或者说EXCEL会弹出一个提示:"是否编写123.XSL (读/写) (取消)" .真的是搞得我快晕死了.
一个关闭EXCEL的问题一直延续到现在还是没有办法解决...

如果有谁能解决请告诉我一声,万分感谢.

ccrun.com 2005-11-06

打赏
举报

如果是用OLE控制Excel，退出时先关闭Workbook，再退出Excel,如下：

vWorkBook.Close;
vWorkBook := Unassigned;

vExeceApp.Quit;
vExceApp := Unassigned;

jackie168 2005-11-04

打赏
举报

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;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
EndProcess('youfilename.exe');
end;