ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

DBOX 2005/08/15(ｿｽｿｽ) 11:00:08

http://hitokuso.kicks-ass.org/progtips.html
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽUpdateLayeredImageｿｽｿｽDelphiｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
procedure TForm1.UpdateLayeredImage( _hwnd:HWND; hbmp:HBITMAP; x,y:integer);
var
  hdcScreen:HDC;
  hdcMemory: HDC;
  rect: TRect;
  _pos: TPoint;
  szWindow: SIZE;
  bf: BLENDFUNCTION;
  ptSrc: TPoint;
  ret: LongBool;
begin
  hdcScreen := GetDC( 0 );
  hdcMemory := CreateCompatibleDC( hdcScreen );
  SelectObject( hdcMemory, hbmp );
  GetWindowRect( _hwnd, rect);
  _pos := Point(rect. Left, rect.Top);
  szWindow.cx := x;
  szWindow.cy := y;
  ptSrc := Point( 0, 0 );
  with bf do begin
    BlendOp     := AC_SRC_OVER;
    BlendFlags  := 0;
    AlphaFormat := AC_SRC_ALPHA;
    SourceConstantAlpha := 255;//$FF;
  end;
  ret := UpdateLayeredWindow( _hwnd, hdcScreen, @_pos, 
                              @szWindow, hdcMemory,
  @ptSrc, 0, bf, ULW_ALPHA );
  ShowMessage(SysErrorMessage(GetLastError));
  DeleteDC( hdcMemory );
  ReleaseDC( 0, hdcScreen );
end;
ｿｽｿｽｿｽｿｽｿｽｿｽ
UpdateLayeredWindowｿｽﾅエｿｽｿｽｿｽ[ｿｽuｿｽpｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽｿｽﾔ茨ｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽv
http://homepage1.nifty.com/MADIA/delphi/delphi_bbs/200308_03080019.html
ｿｽｿｽｿｽｿｽｿｽｿｽﾌ包ｿｽｿｽﾆ難ｿｽｿｽｿｽｿｽﾇ擾ｿｽﾅゑｿｽｿｽB
ｿｽEｿｽﾚ植ｿｽﾉ趣ｿｽｿｽsｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽiｿｽｿｽﾌソｿｽ[ｿｽXｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾔ違えｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽjｿｽA
ｿｽEｿｽeｿｽXｿｽgｿｽﾉ使ｿｽｿｽｿｽﾄゑｿｽｿｽｿｽBMPｿｽtｿｽ@ｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽｿｽｿｽｿｽﾉとゑｿｽﾈゑｿｽｿｽﾄ難ｿｽｿｽyｿｽ[ｿｽWｿｽｿｽCreateRGBBitmapｿｽﾉゑｿｽｿｽｿｽしｿｽﾄみゑｿｽｿｽﾌでゑｿｽｿｽｿｽ
HBITMAP hbmp = CreateDIBSection( dc, (BITMAPINFO*)&bh, DIB_RGB_COLORS, (void**)&bitptr, NULL, 0 );
ｿｽEｿｽｿｽｿｽﾌ茨ｿｽsｿｽｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾎ良ゑｿｽｿｽﾌゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽﾈ上長ｿｽｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽgｿｽjｿｽｿｽ 2005/08/15(ｿｽｿｽ) 11:34:35

ｿｽﾈ前ｿｽｿｽﾐ介しｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽA
http://forum.nifty.com/fdelphi/samples/01218.html
ｿｽｿｽQｿｽlｿｽﾉゑｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽ

DBOX 2005/08/16(ｿｽｿｽ) 00:04:44

ｿｽQｿｽlｿｽﾉゑｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
ShowMessage(SysErrorMessage(GetLastError));
ｿｽﾌとゑｿｽｿｽｿｽﾅエｿｽｿｽｿｽ[ｿｽﾉなゑｿｽﾜゑｿｽｿｽB
ｿｽ鞫懶ｿｽﾌ一部ｿｽｿｽｿｽ半難ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉは？
http://hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi?print+200504/05040077.txt
ｿｽｿｽｿｽｿｽｿｽgｿｽjｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
>32bit BitmapｿｽｿｽR,G,B,Alphaｿｽﾌ配ｿｽｿｽﾅデｿｽ[ｿｽ^ｿｽｿｽｿｽiｿｽ[ｿｽｿｽｿｽｿｽ驍ｾｿｽｿｽｿｽﾅゑｿｽｿｽB
>ScanLineｿｽｿｽBitmapｿｽfｿｽ[ｿｽ^ｿｽﾉアｿｽNｿｽZｿｽXｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽqｿｽｿｽｿｽgｿｽﾈのでゑｿｽｿｽ蛯､ｿｽｿｽｿｽｿｽｿｽｿｽｿｽxｿｽoｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽgｿｽjｿｽｿｽ 2005/08/16(ｿｽｿｽ) 09:01:30

Delphi7ｿｽﾈ降ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽA
TFormｿｽｿｽAlphaBlendｿｽｿｽTrueｿｽﾉゑｿｽｿｽｿｽｿｽ痰｢ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

DBOX 2005/08/16(ｿｽｿｽ) 23:51:55

SetLayeredWindowAttributesｿｽﾆ衝突ゑｿｽｿｽｿｽﾆ趣ｿｽｿｽsｿｽｿｽｿｽ驍ｩｿｽｿｽﾅゑｿｽｿｽﾋ。
ｿｽﾈゑｿｽｿｽﾈゑｿｽｿｽｿｽしｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽUｿｽﾌ知ｿｽｿｽ -malfunctional intellect- - ｿｽﾙゑｿｽｿｽｿｽ
http://d.hatena.ne.jp/tsx/20031210
ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽDelphiｿｽｿｽｿｽﾌゑｿｽWS_EX_LAYEREDｿｽｿｽｿｽﾉ設定しｿｽﾄゑｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽﾈゑｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB

ｿｽｿｽｿｽｿｽｿｽgｿｽjｿｽｿｽ 2005/08/17(ｿｽｿｽ) 08:48:37

ｿｽｿｽｿｽﾛにテｿｽXｿｽgｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB
Delphi7ｿｽﾅは難ｿｽｿｽｿｽmｿｽFｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, LWindow;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private ｿｽ骭ｾ }
    BMP32:TBitmap;
  public
    { Public ｿｽ骭ｾ }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  MakeLayer(Handle, BMP32);
end;

procedure TForm1.FormCreate(Sender: TObject);
var x,y:integer;
    P:PByteArray;
begin
  BMP32:=TBitmap.Create;
  BMP32.PixelFormat:=pf32bit;
  BMP32.Height:=ClientHeight;
  BMP32.Width :=ClientWidth;
  for Y:=0 to BMP32.Height-1 do
  begin
    P :=BMP32.ScanLine[y];
    for X:=0 to BMP32.Width-1 do
    begin
      p[x*4+0 ]:=  150 ;
      p[x*4+1 ]:=  150 ;
      p[x*4+2 ]:=  150 ;
      p[x*4+3 ]:=  150 ;
    end;
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 BMP32.Free;
end;

end.

ｿｽｿｽｿｽｿｽｿｽgｿｽjｿｽｿｽ 2005/08/17(ｿｽｿｽ) 08:49:37

//LWindow.pas
unit LWindow;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

function MakeLayer(wHandle:HWND; LayerBmp:TBitmap):boolean;
function MakeLayer2(wHandle:HWND; LayerBmp:TBitmap):boolean;

function UpdateLayeredWindow(_hwnd:HWND; dstHDC:HDC; pptDst:PPoint;
         ASize:PSize; srcHDC:HDC; pptSrc:PPoint; crKey:COLORREF;
         var bf : BLENDFUNCTION; dwFlag:DWORD):BOOL; stdcall;

const
  WS_EX_LAYERED = $80000;
  LWA_COLORKEY  = 1;
  LWA_ALPHA     = 2;
  ULW_COLORKEY  = 1;
  ULW_ALPHA     = 2;
  ULW_OPAQUE    = 4;
  AC_SRC_ALPHA  = 1;

function UpdateLayeredWindow;
  external 'user32.dll' name 'UpdateLayeredWindow';


implementation

function MakeLayer(wHandle:HWND; LayerBmp:TBitmap):boolean;
var
  bf : TBlendFunction;
  zerop : TPoint;
  formsz : TSize;
begin
  result:=false;
  with bf do begin
    BlendOp:=AC_SRC_OVER;
    BlendFlags:=0;
    SourceConstantAlpha:=255; // ｿｽｿｽｿｽSｿｽｿｽALPHAｿｽｿｽBITMAPｿｽﾉ依托ｿｽｿｽｿｽｿｽｿｽ鼾
    AlphaFormat:=AC_SRC_ALPHA;
  end;
  SetWindowLong(wHandle, GWL_EXSTYLE, GetWindowLong(wHandle, GWL_EXSTYLE) or
                WS_EX_LAYERED);
  zerop.x:=0; zerop.y:=0;
  formsz.cx:=LayerBmp.Width; formsz.cy:=LayerBmp.Height;
  if not UpdateLayeredWindow(
        wHandle, 0,
        nil, // palleteｿｽｿｽCｿｽﾉゑｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽnilｿｽﾅゑｿｽし
        @formsz, // ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌ大きｿｽｿｽｿｽﾌ指ｿｽｿｽ : ｿｽKｿｽ{ｿｽI
        LayerBmp.canvas.handle, // ｿｽTｿｽ[ｿｽtｿｽFｿｽCｿｽXｿｽｿｽｿｽ`ｿｽｿｽｿｽｿｽDC
        @zerop, // ｿｽTｿｽ[ｿｽtｿｽFｿｽCｿｽXｿｽｿｽｿｽ`ｿｽｿｽｿｽｿｽ鞫懶ｿｽﾌ開ｿｽnｿｽ_
        0, bf, ULW_ALPHA) then begin
    ShowMessage(SysErrorMessage(GetLastError));
    Exit;
  end;
  result:=true;
end;

function MakeLayer2(wHandle:HWND; LayerBmp:TBitmap):boolean;
var
  bf : TBlendFunction;
  zerop : TPoint;
  formsz : TSize;
begin
  result:=false;
  with bf do begin
    BlendOp:=AC_SRC_OVER;
    BlendFlags:=0;
    SourceConstantAlpha:=255; // ｿｽｿｽｿｽSｿｽｿｽALPHAｿｽｿｽBITMAPｿｽﾉ依托ｿｽｿｽｿｽｿｽｿｽ鼾
    AlphaFormat:=AC_SRC_ALPHA;
  end;
  //SetWindowLong(wHandle, GWL_EXSTYLE, GetWindowLong(wHandle, GWL_EXSTYLE) or
  //              WS_EX_LAYERED);
  zerop.x:=0; zerop.y:=0;
  formsz.cx:=LayerBmp.Width; formsz.cy:=LayerBmp.Height;
  if not UpdateLayeredWindow(
        wHandle, 0,
        nil, // palleteｿｽｿｽCｿｽﾉゑｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽnilｿｽﾅゑｿｽし
        @formsz, // ｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾌ大きｿｽｿｽｿｽﾌ指ｿｽｿｽ : ｿｽKｿｽ{ｿｽI
        LayerBmp.canvas.handle, // ｿｽTｿｽ[ｿｽtｿｽFｿｽCｿｽXｿｽｿｽｿｽ`ｿｽｿｽｿｽｿｽDC
        @zerop, // ｿｽTｿｽ[ｿｽtｿｽFｿｽCｿｽXｿｽｿｽｿｽ`ｿｽｿｽｿｽｿｽ鞫懶ｿｽﾌ開ｿｽnｿｽ_
        0, bf, ULW_ALPHA) then begin
    ShowMessage(SysErrorMessage(GetLastError));
    Exit;
  end;
  result:=true;
end;


end.

ｿｽｿｽｿｽｿｽｿｽgｿｽjｿｽｿｽ 2005/08/17(ｿｽｿｽ) 08:50:01

ｿｽｿｽｿｽFｿｽRｿｽsｿｽyｿｽﾅゑｿｽｿｽB

DBOX 2005/08/18(ｿｽｿｽ) 13:08:32

ｿｽざｿｽざｿｽ¥ｿｽ[ｿｽXｿｽｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾄ鯉ｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽﾍゑｿｽBitmapｿｽﾌ搾ｿｽ閧ｪｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌグｿｽｿｽｿｽtｿｽBｿｽbｿｽNｿｽﾌ本ｿｽｿｽｿｽｿｽｿｽｿｽﾇゑｿｽﾅみゑｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽﾈゑｿｽｿｽﾈゑｿｽｿｽしｿｽｿｽｿｽﾄ趣ｿｽｿｽｿｽｿｽﾍまゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽmｿｽ轤ｳｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽﾆ、MakeLayerｿｽｿｽMakeLayer2ｿｽｿｽWS_EX_LAYEREDｿｽﾌ搾ｿｽｿｽﾉゑｿｽｿｽｿｽﾓでゑｿｽｿｽﾋ。

ｿｽﾖ托ｿｽｿｽﾅゑｿｽｿｽｿｽ
ARGAS.NET
http://www.argas.net/archive/1/2004-11-08
ｿｽｿｽMikiｿｽﾆゑｿｽｿｽｿｽUpdateLayeredWindowｿｽｿｽpｿｽｿｽｿｽｿｽMediaPlayerｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽﾄ度ｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽ繧ｰｿｽﾜゑｿｽｿｽBｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

Created by board of various Programming Library.