ab.com コミュニティ

解放はされているんですね。疑問が解決しました。
ありがとうございました。

Declare Sub RaiseException Lib "kernel32.dll" (
	dwExceptionCode As DWord,
	dwExceptionFlags As DWord,
	nNumberOfArguments As DWord,
	lpArguments As *ULONG_PTR)

RaiseException(0, 0, 0, NULL)

> さて、debugの途中で開放されるかどうかは実証できますがどうやって例外処理起こすか・・・。
ずばりRaiseExceptionという名前の通り例外を起こす関数があります。
C++などの言語に備えられている例外処理などに使われているようです。

[code]Declare Sub RaiseException Lib "kernel32.dll" (
dwExceptionCode As DWord,
dwExceptionFlags As DWord,
nNumberOfArguments As DWord,
lpArguments As *ULONG_PTR)

RaiseException(0, 0, 0, NULL)[/code]

[quote]さて、debugの途中で開放されるかどうかは実証できますがどうやって例外処理起こすか・・・。[/quote]　少々ずれていますが投稿させて頂きます。
　例外処理の起こし方としては、WinXPなら、「Server」「WorkStation」どちらかのサービスが
停止していれば起こると思います。一度実験したことがあるので。
僕の環境の場合、
Computer Browser：起動　Server：起動　WorkStation：起動→例外処理なし
Computer Browser：停止　Server：起動　WorkStation：起動→例外処理なし
Computer Browser：停止　Server：起動　WorkStation：停止→例外処理：6B5
Computer Browser：停止　Server：停止　WorkStation：起動→例外処理：6B5
Computer Browser：停止　Server：停止　WorkStation：停止→例外処理：6B5
このようになっております。

環境：
SOTEC PCSTATION SX7170C
AMD AthlonXP 1700+
384MB(256MB+128MB)
HDD:40GB
NVIDIA GeForce FX 5200 128MB

参考程度に。では。

[b][AB4のみ調査][/b]
ActiveBasicのデバッガは、実行プログラム（マシン語）を直接デバッグします。
（中間コードなどによるエミュレーションではありません。）

[b]デバッグ実行[/b]を行うと、[b]debug[/b]命令は[b]int 3[/b]というデバッグ割り込み命令になります。
実行プログラム内で[b]int 3[/b]を実行、または[b]例外処理[/b]が発生すると、デバッガーに処理が移ります。
[b][中断] をクリック[/b]すると、全てのデバッグ情報と供に、実行モジュールも開放します。
実行モジュールで確保したリソースの開放は（基本的に）OSが行いますので、NT系のOSでは心配する必要は無いと思います。

[color=red]重要[/color]メモリーを操作する実行プログラムでは、ABのシステムコードを破壊する場合があります。
その際は、正常に動作しなくなるのでご注意ください。
原因としては、
・配列の上限を超える領域までデータを書き込む。
・ポインター操作を誤る。
・バッファーの領域が不足していた。
等があります。

Dim A(1000000) As Double
Dim B(1000000) As Long
Dim C(1000000) As Word
Dim D(1000000) As DWord
Dim E(1000000) As Byte
debug

Dim A As VoidPtr
A=calloc(10000000)
debug

Dim hPen As HPEN
Dim hDC As HDC
hDC=GetDC(GetDesktopWindow())
hPen=CreatePen(PS_SOLID,1,RGB(0,0,0))
SelectObject(hDC,hPen)
SelectObject(hDC,GetStockObject(NULL_BRUSH))
debug

試していませんが、中断を選んだ場合は開放されていると思います。
例外処理のときは開放されるかどうかなんて分りません。なんせ中途で勝手に止まっちまうもんですから。

なんて言ってられないので試してみました。
場合:Debug中に中断する
方法:タスクマネージャより監視する
[hide=使用したコード1][code]
Dim A(1000000) As Double
Dim B(1000000) As Long
Dim C(1000000) As Word
Dim D(1000000) As DWord
Dim E(1000000) As Byte
debug
[/code][/hide]結果:開放された
[hide=使用したコード2][code]
Dim A As VoidPtr
A=calloc(10000000)
debug
[/code][/hide]結果:開放された
[hide=使用したコード3][code]
Dim hPen As HPEN
Dim hDC As HDC
hDC=GetDC(GetDesktopWindow())
hPen=CreatePen(PS_SOLID,1,RGB(0,0,0))
SelectObject(hDC,hPen)
SelectObject(hDC,GetStockObject(NULL_BRUSH))
debug
[/code][/hide]結果:開放された

さて、debugの途中で開放されるかどうかは実証できますがどうやって例外処理起こすか・・・。

デバッグ実行中に Debug 命令語でプログラムを停止させ、
そこで [中断] をクリックするとプログラムがすぐに終了しますが、
その時にプログラムで使用しているハンドルやオブジェクトは解放されているんでしょうか？
また例外処理が発生した場合の [閉じる] も同じです。
もし解放されていない場合はリークになると思うのですが...