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 � ......
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
procedure ChangeProxy(Addr: string; Bypass, Enabled: Boolean);
var
Info: INTERNET_PROXY_INFO;
Reg : TRegistry;&nb ......
先说说以前用asp查询的方法
down是一个表,分别有字段down_id,down_url,down_text
testdown是另一个表,分别有字段down_id,test_down_url
sql="select * from down order by down_count desc"
s ......
下载了最新的delphi 2010,安装，
最新版本，帮助需要单独安装，帮助文件做的比以前好些
在我个人电脑上成功安装，使用正常；
用光盘将安装文件拷到办公室，安装，一切正常；
安装完成后，启动delphi 201 ......
