var HH:HWND; HH := FindWindow(nil,'asdasdasd');
if HH > 0 then
CloseWindow(HH);
if HH > 0 then
CloseWindow(HH);
解决方案 »
- delphi 自动更新
- 有谁知道如何调用本地用户的属性对话框
- 经过数周的努力, 数据同步功能做好了。散分了!
- 基础问题
- 回答问题送国际域名一个,加300分,ActiveForm超高手请进,绝世难题。回答正确后直接找QQ:82865领奖
- 如何获得window中的其它应用程序的handle(知道其标题),想让它最小化,用sendmessage怎么做呀?
- 给xzhbaggio(忧郁王子-罗*巴乔)的100分,谢谢你给的资料。。。。
- C语言中的GZIPInputStream在DELPHI可用什么表示?
- 朋友们,5年了~我又回到程序(Coding)界了~昨天花了30分钟调了一个技术核心!
- 急!!!请帮我
- 请问以上工程能否实现?
- 建立自已的控件InStall時的出錯信息,[Fatal Error]MyMemo.pas[6]:Internal Error:URW3010,為什麼?
假设要终止的程序的文件名为:project2.exe,那么例程如下:
var
lppe:tprocessentry32;
sshandle:thandle;
hh:hwnd;
found:boolean;
begin
sshandle:=createtoolhelp32snapshot(TH32CS_SNAPALL,0);
found:=process32first(sshandle,lppe);
while found do
begin
//进行你的处理其中lppe.szExefile就是程序名。
if uppercase(extractfilename(lppe.szExeFile))='PROJECT2.EXE' then
begin
hh:=OpenProcess(PROCESS_ALL_ACCESS,true,lppe.th32ProcessID);
TerminateProcess(hh,0);
end;
found:=process32next(sshandle,lppe);
end;
end;
********************
HANDLE hProcess
Windows NT/2000: The handle must have PROCESS_TERMINATE access.
For more information, see Process Security and Access Rights. 所以要先使用
DWORD SetSecurityInfo(
HANDLE handle, // handle to object
SE_OBJECT_TYPE ObjectType, // object type
SECURITY_INFORMATION SecurityInfo, // buffer
PSID psidOwner, // new owner SID
PSID psidGroup, // new primary group SID
PACL pDacl, // new DACL
PACL pSacl // new SACL
);