delphi关闭当前运行程序并保存文档问题

Question

怎样用delphi编写一个能不关闭所有当前运行的程序并备份运行程序文档的程序呢？

Answer 1

就是关机前需要关闭任务栏上的程序，某些程序是编辑文档的如WORD，关闭WORD时就需要备份word的临时文件。

Answer 2

var   
  hSnapshot:THandle;
  lppe:TProcessEntry32;
begin
  hSnapShot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
  lppe.dwSize:=Sizeof(lppe);
  if Process32First(hSnapshot,lppe)then begin
    while  Process32Next(hSnapshot,lppe) do begin
      showmessage(lppe.szExeFile);//当前应用程序的文件名
    end;//end while
  end;//end if
  CloseHandle(hSnapshot);
end;
这是我用来判断当前运行程序的代码，对你应该有帮助

Answer 3

我把这段程序拷下来试了，编译时报错说TProcessEntry32、CreateToolhelp32Snapshot等没有定义，我是不是少了什么文件？

Answer 4

应该是能够实现的，我现在有一个小程序能够关闭运行程序并保存文档，只是在vistar系统中保存文档的路径会出错。我没有源码不能修改它。