function ExtractRegion( Image:TBitmap ): HRGN;
var
    W: Integer;
    H: Integer;
    X: Integer;
    Y: Integer;
    P: Integer;
    C: TColor;
    T: TColor;
    F: TForm;
    L: TLabel;
    A: Integer;
    Z: Integer;
    R: HRGN;
begin
    Result := CreateRectRgn(0,0,0,0);
    P := 0;

    W := Image.Width;
    H := Image.Height;
    T := Image.TransparentColor and $00FFFFFF;
    F := TForm.Create( Self );
    F.BorderStyle  := bsToolWindow;
    F.BorderIcons  := [];
    F.Caption      := 'DMS 初期化中...';
    F.ClientWidth  := 200; 
    F.ClientHeight := 40; 
    F.Position     := poDesktopCenter;
    L := TLabel.Create( F );
    L.Parent := F;
    L.Left   := (F.ClientWidth  - F.Canvas.TextWidth('00% 完了')) div 2;
    L.Top    := (F.ClientHeight - L.Height                      ) div 2;
    Z := 0;
    F.Show;

    while (P div W < H) and (not Application.Terminated) do
    begin
        X := P mod W;
        Y := P div W;
        C := Image.Canvas.Pixels[X,Y] and $00FFFFFF;
                
        if (C <> T) then
        begin
            R := CreateRectRgn( X, Y, X+1, Y+1 );
            CombineRgn( Result, Result, R, RGN_OR );
            DeleteObject( R );
        end;

        Inc( P );

        A := (P*100) div (W*H);
        if (A <> Z) then
        begin
            L.Caption := IntToStr(A) +'% 完了';
            Application.ProcessMessages;
            Z := A;
        end;
        
    end;

    F.Release;
end;

function TForm1.GetRegion( ForceInitial:Boolean=False ): HRGN;
var
    FN : TFileName;
    AEN: TFileName;
    BMP: TBitmap;
    Rgn: HRGN;
    Sz : DWORD;
    pRD: PRgnData;
begin
    FN := ChangeFileExt( Application.ExeName, '.rgn' );
    AEN:= Application.ExeName;
    if ForceInitial or not FileExists( FN ) then//or (FileAge(AEN) > FileAge(FN) ) then
    begin
        (* imgChar は実は TGLDPNG だったりします。Bitmap に変換してるわけ。 *)
        BMP := TBitmap.Create;
        BMP.Assign( imgChar );
        Result := ExtractRegion( BMP );
        BMP.Free;
        
        (* そのリージョンに、時計を描画する領域(擬似ウィンドウ)を追加 *)
        Rgn := ClockWork.GetWindowRectRgn;
        CombineRgn( Result, Result, Rgn, RGN_OR );
        DeleteObject( Rgn );
        
        (* 出来上がったリージョンは、バイナリ化して保存しておく *)
        Rgn := CreateRectRgn( 0,0,0,0 );
        CombineRgn( Rgn, Rgn, Result, RGN_OR );
        Sz  := GetRegionData( Result, 0, NIL );
        pRD := AllocMem( Sz );
        GetRegionData( Result, Sz, pRD );
        DeleteObject( Rgn );

        with TMemoryStream.Create do
        begin
            Write( pRD^, Sz );
            SaveToFile( FN );
            Free;
        end;
        
        FreeMem( pRD );
        
    end else begin
        (* キャッシュファイル発見 読み込んでリージョンへと変換 *)
        (* ExtCreateRegion() が必要としているのは実体であることに留意 *)
        with TMemoryStream.Create do
        begin
            LoadFromFile( FN );
            Sz := Size;
            pRD:= AllocMem( Sz );
            Read( pRD^, Sz );
            Free;
        end;
        
        Result := ExtCreateRegion( NIL, Sz, pRD^ );
        
        FreeMem( pRD );
    end;
end;

procedure WMLButtonDown( var MSG:TWMLButtonDown ); message WM_LBUTTONDOWN;

procedure TForm1.WMLButtonDown(var MSG:TWMLButtonDown );
begin
	SendMessage( Handle, WM_SYSCOMMAND, SC_MOVE or 2, 0 );
end;

procedure TForm1.TaskTrayProcs( var Msg:TMessage );
var
    P  : TPoint;
    pum: TPopupMenu;
begin
    pum := NIL;

    case Msg.LParam of
        WM_LBUTTONDOWN  : SetForegroundWindow( Handle );
        WM_LBUTTONDBLCLK: OnDblClick( NIL ); // ダブルクリックイベントへ丸投げ(￣▽￣;)
        WM_RBUTTONDOWN  : pum := PopupMenu;
    else
        if (Msg.LParam = LongInt(UM_TrayIconRecreate)) then
            AddToTaskTray
        else
            Msg.Result := DefWindowProc( NID.Wnd, Msg.Msg, Msg.wParam, Msg.lParam );
    end;
    
    if Assigned(pum) then
    begin
        GetCursorPos( P );
        SetForegroundWindow( Handle );
        pum.Popup( P.X, P.Y );
    end;
end;

procedure TForm1.AddToTaskTray;
begin
    if TaskTray and not FTrayUsed then
    begin
        NID.cbSize := SizeOf( TNotifyIconData );
        NID.hIcon  := LoadIcon( HInstance, 'TRAYICON' );
        NID.szTip  := sMutexText;
        NID.uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP;
        NID.uID    := 0;
        NID.Wnd    := Classes.AllocateHWnd( TaskTrayProcs );
        NID.uCallbackMessage := UM_TASKTRAY;

        FTrayUsed := Shell_NotifyIcon( NIM_ADD, @NID );
    end;
end;

procedure TForm1.RemoveFromTaskTray;
begin
    if FTrayUsed then
    begin
        Shell_NotifyIcon( NIM_DELETE, @NID );
        Classes.DeallocateHWnd( NID.Wnd );
        FTrayUsed := False;
    end;
end;

var
    UM_TrayIconRecreate: UINT;
    NID : TNotifyIconData; {in ShellAPI}
const
    UM_TASKTRAY = WM_USER +$1234;

UM_TrayIconRecreate := RegisterWindowMessage( 'TaskbarCreated' );