怎样拦截Delphi的错误信息并用自己的信息代替？

Question

比方说“密码无效”。

Answer 1

Try
//代码
Except
//报错语句，自己的
End;

Answer 2

Try
//代码
Except
//报错语句，自己的
End;
注意：编译成Exe文件后才有效

Answer 3

try
//do something
except
 on E: Exception do
　//这里可以根据提示的英文关键单词(如password)，然后自己提示信息；
 if pos('password', E.message)>0 then
   Messagebox(handle, '密码无效', '提示信息', MB_OK+MB_ICONInformation); 
 if pos()... 
 end;
end;

Answer 4

http://www.china-pub.com/computers/emook/0988/info.htm