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 来定
相关问答：
如题。
感觉如何？交流下。
没有研究过，呵呵
有啥研究头？
那个东西，是个鸡肋，，没有什么意思，发现！！
用来做B/S架构的MIS系统的话应该可以提高界面开发的效率吧？
因为不熟悉Delphi � ......
Delphi 像亡国的南宋，试问这语言还有前途吗？
Win32开发不如C#；
面像对像开发不如JAVA；
系统开发不如VC++6.0；
能用性不如VB6.0；
不支持Web开发。。。
出个Delphi 2010免费一年会有人用吗？
......
哪里有Delphi的视频教程？新手那种的
谢谢
加月亮QQ，然后让月亮跟你视频讲解，免费的视频讲解
有很多，但天下没有免费的午餐
2楼的朋友 月亮是谁？
引用
2楼的朋友 月亮是谁？
大名顶顶 ......
下载了最新的delphi 2010,安装，
最新版本，帮助需要单独安装，帮助文件做的比以前好些
在我个人电脑上成功安装，使用正常；
用光盘将安装文件拷到办公室，安装，一切正常；
安装完成后，启动delphi 201 ......
我用delphi调用一个VC++的dll
这个dLL我没有源码。大小写绝对正确
dll里面的一个CloseCommPort函数，dll说明说里面有，说明如下：
5、CloseCommPort
VOID PASCAL CloseCommPort(HANDLE hCom) ......
