Delphi6函数大全5-SysUtils.pas
首部 function InquireSignal(RtlSigNum: Integer): TSignalState; $ of Char;
begin
ExceptionErrorMessage(Self, Self, vBuffer, 255);
Caption := vBuffer;
end;
///////End ExceptionErrorMessage
━━━━━━━━━━━━━━━━━━━━━
首部 procedure ShowException(ExceptObject: TObject; ExceptAddr: Pointer); $