- くだすれDelphi(超初心者用)その56
72 ：デフォルトの名無しさん[sage]：2014/10/22(水) 21:35:22.57 ID:bu+U1qDd - Delphi7の RegisterClass API リソースリーク関連
unit Classes;
procedure DeallocateHWnd(Wnd: HWND);
var
Instance: Pointer;
TempClass: TWndClass;//Add
begin
････
if Instance <> @DefWindowProc then FreeObjectInstance(Instance);
Windows.UnregisterClass(UtilWindowClass.lpszClassName, HInstance);//Add
unit Controls;
procedure TWinControl.DestroyWindowHandle;
var//Add
Params: TCreateParams;//Add
begin
CreateParams(Params);//Add
････
finally
Exclude(FControlState, csDestroyingHandle);
Windows.UnregisterClass(Params.WinClassName, HInstance);//Add
end;
| - くだすれDelphi(超初心者用)その56
73 ：デフォルトの名無しさん[sage]：2014/10/22(水) 21:36:27.10 ID:bu+U1qDd - 続き
destructor TWinControl.Destroy;
var
･････
Params: TCreateParams;//Add
begin
CreateParams(Params);//Add
Destroying;
･･･
if FHandle <> 0 then DestroyWindowHandle;
Windows.UnregisterClass(Params.WinClassName, HInstance);//Add
unit Forms;
destructor TApplication.Destroy;
begin
･････
DestroyWindow(FHandle);
end;
Windows.UnregisterClass(WindowClass.lpszClassName, HInstance);//Add
|
|