怎么判断已打开某个程序？

[sam_chen]

要做到了不能打开两个相同的软件。谢谢各位高手相助。

[柯本]

1.用findwindow
2.function CheckIsFirst:Boolean;
begin
fMutexHandle:=OpenMutex(mutex_all_access,False,'a_program_name');
if fMutexHandle=0 then
begin
fMutexHandle:=CreateMutex(nil,false,'a_program_name');
result:=fMutexHandle<>0;
end else
begin
Result:=False;
TUtils.ShowMess('程序已经运行，不允许两个实例同时运行!');
end;

end;

[afanyun]

var
h:hWnd;
begin
h := Findwindow('TApplication',pchar('应用程序标题'));
if h<>0 then //已经打开过了
begin
postmessage(h,wm_quit,1,1); //关闭打开的程序
end;
end;