stacktrackdllsdynamicunit.pas

来自「全世界知名的Open Source Delphi开发组织JCL的作品。JCL包含」· PAS 代码 · 共 29 行

unit StackTrackDLLsDynamicUnit;

interface

procedure Error1; stdcall;
procedure Error2; stdcall;

implementation

uses
  SysUtils;

procedure Error1_1;
begin
  StrToInt('x');
end;

procedure Error1; stdcall;
begin
  Error1_1;
end;

procedure Error2; stdcall;
begin
  raise Exception.Create('Exception from StaticLibrary.dll');
end;

end.