delphi如何判断程序是否已经打开