如何避免動態建立OUTLOOK窗體會和當前已打開的OUTLOOK窗體重復？ //代碼如下，請予以指教! Outlook, MailItem,Namespace,Folder: OLEVariant; curitem,curexplorer:OLevariant; //首先需判斷OUTLOOK是否存在于電腦中 try Outlook := CreateOleObject('Outlook.Application'); except application.MessageBox('請確認您的電腦中裝有OUTLOOK軟體！','注意！',mb_iconinformation mb_ok); Outlook := Unassigned; exit; end; MailItem:= Outlook.CreateItem(olMailItem); namespace:=outlook.getnamespace('MAPI'); Folder := Namespace.GetDefaultFolder(olFolderDrafts); MailItem.Recipients.Add(TRIM(query_email.Fieldbyname('EMAIL').AsString)); MailItem.Subject:='Current Report'; Mailitem.ReadReceiptRequested :=true;//need receipt note. if fileexists(‘c:\autoexec.bat’) then MailItem.Attachments.Add(‘c:\autoexec.bat’); mailitem.save; //在此處尋找電腦中是否已有OUTLOOK軟體開啟，若有則使OUTLOOK窗體成為當前窗體，否則顯示OUTLOOK窗體 //問題在于每次程序均會自動建立一個新的OUTLOOK窗體 oeHWnd:=findwindow(NiL,'草稿 - Microsoft Outlook'); if oeHwnd=NULL then curexplorer.display else begin outlook.activeexplorer.display; end; //若是我想讓最先建立的OUTLOOK窗體閃動標題欄呢？