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 来定
相关问答：
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
我在用mainmenu菜单控件和savediglog控件设置保存文件对话框时，虽然能够顺利保存文件，但是我对已经保存过的文件进行再次保存的时候，并不能和很多软件一样直接保存，而是仍然弹出保存对话框，而我不想它打开，而是 ......
哪里有Delphi的视频教程？新手那种的
谢谢
加月亮QQ，然后让月亮跟你视频讲解，免费的视频讲解
有很多，但天下没有免费的午餐
2楼的朋友 月亮是谁？
引用
2楼的朋友 月亮是谁？
大名顶顶 ......
我用delphi调用一个VC++的dll
这个dLL我没有源码。大小写绝对正确
dll里面的一个CloseCommPort函数，dll说明说里面有，说明如下：
5、CloseCommPort
VOID PASCAL CloseCommPort(HANDLE hCom) ......
