您现在的位置：首页 >> 硬件系统 >> 硬件系统 >> 内容

Delphi相关进程与文件操作(PsAPI)(7)

时间：2011/9/3 15:20:25 点击：


//(8)判断程序是否在运行：
procedure TForm1.Button5Click(Sender: TObject);
var PrevInstHandle:Thandle;
AppTitle:pchar;
begin
AppTitle := pchar('test');
PrevInstHandle := FindWindow(nil, AppTitle);
if PrevInstHandle <> 0 then begin
if IsIconic(PrevInstHandle) then
ShowWindow(PrevInstHandle, SW_RESTORE)
else
BringWindowToTop(PrevInstHandle);
SetForegroundWindow(PrevInstHandle);
end;
end;

上一页1234567下一页

Tags:相关 关进 进程 文件 操作 
作者：网络　来源：转载
  • 上一篇：Delphi实现对注册表的监视和扫描
  • 下一篇：Delphi利用CreateRemoteThread远程注入
    • 共有评论 0 条相关评论
    发表我的评论
    • 大名：
    • 内容：
  • 盒子文章(www.2ccc.com) © 2024 版权所有 All Rights Reserved.
  • 沪ICP备05001939号