各位高手,拜託..可否替我解答一個問題,已經找了許多資料了.. 請問在   try     Outlook := CreateOleObject('Outlook.Application');   except     i :=0;   end; 若系統中並沒有安裝outlook,我知道 CreateOleObject('Outlook.Application'); 這一段是會有問題的 即出現 "Project1.exe raised exception class EOleSysError with message '無效的類別字串'"之錯誤 但我想問的是,try並沒有辦法將此錯誤擋掉,讓一般user不要看到此訊息, 我到底該怎麼做呢?< >< >< >< >

用 try..except 在 IDE 下 run 時仍會出現非自訂的錯誤訊息 想取消這個功能在 Tools -> Debugger Options -> Language Exceptions 頁 最底下有個 Stop on Delphi Exceptions 的 checkbox 不要打勾即可    --

引言: 各位高手,拜託..可否替我解答一個問題,已經找了許多資料了.. 請問在 try Outlook := CreateOleObject('Outlook.Application'); except i :=0; end; 若系統中並沒有安裝outlook,我知道 CreateOleObject('Outlook.Application'); 這一段是會有問題的 即出現 "Project1.exe raised exception class EOleSysError with message '無效的類別字串'"之錯誤 但我想問的是,try並沒有辦法將此錯誤擋掉,讓一般user不要看到此訊息, 我到底該怎麼做呢?< >< >< >< >

我想 hagar版主的做法是會使所有的錯誤例外都無法被發生, 如果你只是單純 這段想讓user不知道有任何錯誤發生(連訊息都不要的話) try outlook:= Createoldobject(); ..... except // 這中間不要加任何動作即可 end;

謝謝各位的回答,但我想, 可能是我問的不清楚, 我的意思是說,在 try outlook:= Createoldobject(); 這一行後並不會跳到excetp之後,而是直接由系統發出錯誤,所以, 我想做到的是,截取系統的錯誤訊息,而轉換成 user看的懂的訊息.. 所以,可否請各位再幫幫忙,謝謝!!

小弟試了一下兩種狀況, 都在 IDE 底下 run 程式,  把 Stop on Delphi Exceptions 的勾勾取消後 狀況一, 結果會出現 except 底下這行的 error 訊息:

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    StrToInt('a');
  except
    ShowMessage('error');
  end;
end;

狀況二, 結果會出現 'a' is not a valid integer 的錯誤訊息:

procedure TForm1.Button1Click(Sender: TObject);
begin
  StrToInt('a');
end;

所以結論是應該不會如 PD 兄所言什麼錯誤例外訊息都不會發生 另外 sherryliu 所問的就是在 except 底下處理, 例:

  try
    Outlook := CreateOleObject('Outlook.Application');
  except
    on E: Exception do
    begin
      i :=0;
      MessageDlg(E.Message, mtError, [mbOK], 0);
    end;
  end;

[/code] -- Variable hagar declared but never used