29 lines
367 B
ObjectPascal
29 lines
367 B
ObjectPascal
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.
|