?? stacktrackdllscomunit.pas
字號:
unit StackTrackDLLsComUnit;
interface
uses
Windows, ActiveX, Classes, ComObj, StackTrackDLLsComLibrary_TLB, StdVcl;
type
TStackTrackDllsTest = class(TTypedComObject, IStackTrackDllsTest)
protected
function Error1: HResult; stdcall;
function Error2: HResult; stdcall;
end;
implementation
uses ComServ, SysUtils;
procedure Error1_1;
begin
StrToInt('x');
end;
function TStackTrackDllsTest.Error1: HResult;
begin
Error1_1;
Result := S_FALSE;
end;
function TStackTrackDllsTest.Error2: HResult;
begin
raise Exception.Create('Exception from IDllExceptTestObject.Error2');
end;
initialization
TTypedComObjectFactory.Create(ComServer, TStackTrackDllsTest, Class_StackTrackDllsTest,
ciMultiInstance, tmApartment);
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -