关于EnumWindowsr的有关问题

关于EnumWindowsr的问题
写了一段代码，目的是寻找所有窗口中，窗口标题为"MYAPP"的窗口，如下
function EnumWindowsMYAPP(Handle:HWND;lParam:LPARAM):Boolean;stdcall;
var
Caption:array[0..254] of Char;
begin
  if GetWindowText(Handle,Caption,SizeOf(Caption))<>0 then
  begin
      if (Caption='MYAPP') and (Handle<>FrmMain.Handle) then
        if CreateAppHandleList.IndexOf(IntToStr(Handle))=-1 then
          CreateAppHandleList.Add(IntToStr(Handle));
  end;
  Result:=True;
end;
CreateAppHandleList是一个TStringList全局变量
然后在程序开始时执行
procedure TFrmMain.FormCreate(Sender: TObject);
begin
  CreateAppHandleList:=TStringList.Create;
  EnumWindows(@EnumWindowsMYAPP,0);
end;

问题是：只开了一个MYAPP，但以上代码会得到两个MYAPP的句柄
------解决思路----------------------
另一个是Application窗口,设置Application.Title:='abc'试试