Delphi Services 里面Findwindow 问题
老产品维护问题，
Delphi 版本：delphi6
如果新建一个Application,
用一下Code可以获得正确的Handle
Delphi(Pascal) code:
procedure TForm1.Button1Click(Sender: TObject);
var
EVMHandle:HWND;
EVMTitle: String;
begin
EVMHandle:=FindWindow(nil,'console');
Showmessage(inttostr(EVMHandle));
end;
但如果写一个delphi service application,
返回的handle值一直是0
Delphi(Pascal) code:
procedure TSvcChkHandle.ServiceStart(Sender: TService;
var Started: Boolean);
var
EVMHandle: HWND;
begin
try
Coinitialize(nil);
EVMHandle:=FindWindow(nil,'console');
Writelog(inttostr(EVMHandle));
Started := True;
except
On E: Exception do LogMessage(E.Message);
end;
end;
console 是我一个应用程序的窗口标题
在线等，谢谢
有没有什么方法在service里面可以检查某一个应用程序是否在运行？
老的产品在service里用Findwindow 来判断应用程序是否运行，怀疑是否windows2000里面可以
，但XP或者更高版本有问题，我在网上查到很多类似问题，但还没有解决我目前问题的方法。
谢谢关注，请继续支招。
可以用 psapi 单元的 EnumProcesses 或者 toolhlp 单元的 CreateToolhelp32Snapshot， Process32First， Process32Next 来定
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
谁能给我一个判断邮箱是否合法的例子
多谢
提供些别的：
电子邮件地址的构成
电子邮件地址的格式是“USER@SERVER.COM”，由三部分组成。
第一部分“USER”代表用户信箱的帐号，对于同一个邮件接 ......
哥们，弟们，姐们，妹们， 请问谁有用delphi打包工具的？
从网上下载的要么安装不了，要么没使用说明文档。给推荐下？
不要告诉我 installshield for D7
up
bs sf
End_rbody_59866840//- ......
假设开发时连接了SQL数据库。
那么在给客户用的时候，如果客户机子上没有装SQL的话，那程序不是不能正常运行了吗？
有没有办法在客户机上不按照SQL的情况下也能正常运行程序。
这个没试过、应该会有解决的� ......
我用delphi调用一个VC++的dll
这个dLL我没有源码。大小写绝对正确
dll里面的一个CloseCommPort函数，dll说明说里面有，说明如下：
5、CloseCommPort
VOID PASCAL CloseCommPort(HANDLE hCom) ......
