Вопрос по Bitmap с Alpha-каналом

[SkOle]

Имеется bitmap c альфой, расположенный в системе... извлекать его получается без проблем, а вот качественно его отобразить не получается пропадает часть изображения и остается частичный контур вокруг

Код, который все это дело обрабатывает:

h := LoadLibrary('c:\Windows\SYSTEM32\explorer.exe');
  Bitmap := TBitmap.Create;
  Bitmap.PixelFormat := pf32bit;
  try
    if h <> 0 then
    begin
      Bitmap.LoadFromResourceName(h, '#7016');
      Bitmap.Transparent := True;
      Bitmap.TransparentColor := Bitmap.Canvas.Pixels[0,0];
      Bitmap.TransparentMode := tmAuto;
      Image1.Canvas.Draw(0, 0, Bitmap);
    end;
  finally
    Bitmap.Free;
    FreeLibrary(h);
  end;

ну и соотвественно:

var
  h: THandle;
  Bitmap: TBitmap;

помогите, плз, уже горю с проектом

[ZuBy]

у меня такого ресурса в explorer'e не оказалось
и путь c:\windows\explorer.exe

[x128]

procedure AlphaDraw(dst: THandle; x,y: integer; img: TBitmap);
var
  bf: TBlendFunction;
begin
  bf.BlendOp:=AC_SRC_OVER;
  bf.BlendFlags:=0;
  bf.SourceConstantAlpha:=255;
  bf.AlphaFormat:=AC_SRC_ALPHA;
  AlphaBlend(dst, x,y,img.Width,img.Height, img.Canvas.Handle, 0,0,img.Width,img.Height, bf);
end;
------------
  h := LoadLibrary('c:\Windows\SYSTEM32\explorer.exe');
  Bitmap := TBitmap.Create;
  try
    if h <> 0 then
    begin
      Bitmap.LoadFromResourceName(h, '#7016');
      AlphaDraw(Image1.Canvas.Handle, 0, 0, Bitmap);
    end;
  finally
    Bitmap.Free;
    FreeLibrary(h);
  end;

[SkOle]

ZuBy, это для Windows 7

x128, отлично просто!!! СПАСИБО БОЛЬШОЕ!!! рейтинг повысил