ImageEnView1.EnableAlphaChannel := True;
ImageEnView1.Proc.SetTransparentColors(TColor2TRGB(clBlack), TColor2TRGB(clBlack), 0);

ImageEnView.IO.Params.BitsPerSample := 8;
ImageEnView.IO.Params.SamplesPerPixel := 4;

ImageEnIO.LoadFromFile(APngFile);
ImageEnIO.SaveToFilePNG('test.png');

ThisImageEnView := TImageEnView.Create(nil);
try
  ThisImageEnView.IO.LoadFromFilePNG(ParamStr(1));

  ThisImageEnView.EnableAlphaChannel := True;
  ThisImageEnView.Proc.SetTransparentColors(TColor2TRGB(clBlack), TColor2TRGB(clBlack), 0);

  ThisImageEnView.IO.Params.BitsPerSample := 8;
  ThisImageEnView.IO.Params.SamplesPerPixel := 4;

  ThisImageEnView.Proc.CopyToClipboard(True);
finally
  ThisImageEnView.Free;
end;

program CopyImageFromFile;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  // CodeSiteLogging,
  Vcl.ExtCtrls,   // -> TImage
  Winapi.Windows, // -> HPALETTE
  Vcl.Clipbrd,
  //Vcl.Graphics,
  System.SysUtils;

procedure DoCopyImageFromFile(const APngFile: string);
var
  ThisImage: TImage;
  MyFormat: Word;
  Bitmap: TBitMap;
  AData: THandle;
  APalette: HPALETTE;
begin
  // CodeSite.Send('DoCopyImageFromFile: APngFile', APngFile);
  ThisImage := TImage.Create(nil);
  try
    ThisImage.Picture.LoadFromFile(APngFile);
    ThisImage.Picture.SaveToClipBoardFormat(MyFormat, AData, APalette);
    ClipBoard.SetAsHandle(MyFormat, AData);
  finally
    ThisImage.Free;
  end;
end;

begin
  try
    // Usage: CopyImageFromFile.exe test.png
    // test.png is 32 bit with alpha channel
    if ParamCount = 1 then
    begin
      if FileExists(ParamStr(1)) then
      begin
        if LowerCase(ExtractFileExt(ParamStr(1))) = '.png' then
          DoCopyImageFromFile(ParamStr(1));
      end;
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

end.

program CopyImageFromFile;

{ Copy a 32-bit png image with alpha channel to the clipboard while preserving the
  alphachannel.  If the copy is sucessful then  when you paste the image into
  TImageEnView with:

  if ImageEnView1.Selected then
  begin
    ImageEnView1.Proc.SelPasteFromClip(True);
    ImageEnView1.Update;
  end
  else
    ImageEnView1.Proc.PasteFromClipboard;

  the transparency (or the alphachannel) will be maintained. }

{$APPTYPE CONSOLE}
{$R *.res}

{ Note: To prevent compiler file not found problems In the IDE go to
  Project -> Options - > Delphi Compiler.  Look for SearchPath and add the path
  to ImageEn source: D:\Components\ImageEn }

uses
  Vcl.Clipbrd,
  System.SysUtils,
  ImageEnIO,
  ImageEnProc,
  hyieutils;

procedure DoCopyImageFromFile(const AFilename: string);
var
  iIEBitmap: TIEBitmap;
  iImageEnIO: TImageENIO;
  iImageEnProc: TImageEnProc;
begin
  iIEBitmap := TIEBitmap.Create;
  try
    iImageEnIO := TImageENIO.Create(nil);
    try
      iImageEnIO.AttachedIEBitmap := iIEBitmap;
      iImageEnIO.LoadFromFile(AFilename);
      iImageEnProc := TImageEnProc.Create(nil);
      try
        iImageEnProc.AttachedIEBitmap := iIEBitmap;
        { If UseInternalFormat is True, two bitmap are saved: one in standard
          DIB format and one in internal format which preserves pixelformat
          and alpha channel. }
        if iImageEnProc.CopyToClipboard(True) then
          Writeln(AFilename + ' was copied to the clipboard with transparency.')
        else
          Writeln(AFilename + ' copy to clipboard failed.')
      finally
        iImageEnProc.Free;
      end;
    finally
      iImageEnIO.Free;
    end;
  finally
    iIEBitmap.Free;
  end;
end;

begin
  try
    // Usage: CopyImageFromFile.exe test.png
    // test.png is 32 bit with alpha channel
    if ParamCount = 1 then
    begin
      if FileExists(ParamStr(1)) then
      begin
        if LowerCase(ExtractFileExt(ParamStr(1))) = '.png' then
          DoCopyImageFromFile(ParamStr(1));
      end;
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

end.

procedure DoCopyPNGToClipboard(AFilename: string);
const
   MyClipboardFormatStr = 'PNG';
var
  iPNGImage: TPNGImage;
  iFormat: Word;
  iData: THandle;
  iPalette: HPALETTE;
begin
  iPNGImage := TPNGImage.Create;
  try
    iPNGImage.LoadFromFile(AFilename);
  finally
    iFormat := RegisterClipboardFormat(MyClipboardFormatStr);
    iPNGImage.SaveToClipBoardFormat(iFormat, iData, iPalette);
    ClipBoard.SetAsHandle(iFormat, iData);
    iPNGImage.Free;
  end;

  begin
    try
      // Usage: CopyPNGToClipboard.exe test.png
      // test.png is 32 bit with alpha channel
      if ParamCount = 1 then
      begin
        if FileExists(ParamStr(1)) then
        begin
          if LowerCase(ExtractFileExt(ParamStr(1))) = '.png' then
            DoCopyPNGToClipboard(ParamStr(1));
        end;
      end;
    except
      on E: Exception do
        Writeln(E.ClassName, ': ', E.Message);
    end;
  end;
end;

program CopyImageFromFile;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  Winapi.Windows,
  Vcl.Clipbrd,
  System.SysUtils,
  ImageEnIO,
  ImageEnProc,
  hyieutils;

procedure DoCopyImageFromFile(const APngFile: string);
var
  iIEBitmap: TIEBitmap;
  iImageEnIO: TImageENIO;
  iImageEnProc: TImageEnProc;
begin
  iIEBitmap := TIEBitmap.Create;
  try
    iImageEnIO := TImageENIO.Create(nil);
    try
      iImageEnIO.AttachedIEBitmap := iIEBitmap;
      iImageEnIO.LoadFromFile(APngFile);
      iImageEnProc := TImageEnProc.Create(nil);
      try
        iImageEnProc.AttachedIEBitmap := iIEBitmap;
        { If UseInternalFormat is True, two bitmap are saved: one in standard
          DIB format and one in internal format which preserves pixelformat
          and alpha channel. }
        if iImageEnProc.CopyToClipboard(True) then
          Writeln(APngFile + ' was copied to the clipboard with transparency.')
        else
          Writeln(APngFile + ' copy to clipboard failed.')
      finally
        iImageEnProc.Free;
      end;
    finally
      iImageEnIO.Free;
    end;
  finally
    iIEBitmap.Free;
  end;
end;

function FormatHTMLClipboardHeader(HTMLText: string): string;
const
  CrLf = #13#10;
begin
  Result := 'Version:0.9' + CrLf;
  Result := Result + 'StartHTML:-1' + CrLf;
  Result := Result + 'EndHTML:-1' + CrLf;
  Result := Result + 'StartFragment:000081' + CrLf;
  Result := Result + 'EndFragment:°°°°°°' + CrLf;
  Result := Result + HTMLText + CrLf;
  Result := StringReplace(Result, '°°°°°°', Format('%.6d', [Length(Result)]), []);
end;

procedure CopyHTMLAndImageToClipBoard(const str, APngFile: AnsiString; const htmlStr: AnsiString = '');
var
  gMem: HGLOBAL;
  lp: PChar;
  Strings: array[0..1] of AnsiString;
  Formats: array[0..1] of UINT;
  i: Integer;
  HTML: string;
begin
  gMem := 0;
  {$IFNDEF USEVCLCLIPBOARD}
  Win32Check(OpenClipBoard(0));
  {$ENDIF}
  try
    //most descriptive first as per api docs
    Strings[0] := FormatHTMLClipboardHeader(htmlStr);
    Strings[1] := str;
    Formats[0] := RegisterClipboardFormat('HTML Format');
    Formats[1] := CF_TEXT;
    {$IFNDEF USEVCLCLIPBOARD}
    Win32Check(EmptyClipBoard);
    {$ENDIF}
    for i := 0 to High(Strings) do
    begin
      if Strings[i] = '' then Continue;
      //an extra "1" for the null terminator
      gMem := GlobalAlloc(GMEM_DDESHARE + GMEM_MOVEABLE, Length(Strings[i]) + 1);
      {Succeeded, now read the stream contents into the memory the pointer points at}
      try
        Win32Check(gmem <> 0);
        lp := GlobalLock(gMem);
        Win32Check(lp <> nil);
        CopyMemory(lp, PChar(Strings[i]), Length(Strings[i]) + 1);
      finally
        GlobalUnlock(gMem);
      end;
      Win32Check(gmem <> 0);
      SetClipboardData(Formats[i], gMEm);
      Win32Check(gmem <> 0);
      gmem := 0;
    end;

    // Uncomment this to copy ONLY the bitmap without transparency:
    //DoCopyImageFromFile(APngFile); // <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  finally
    {$IFNDEF USEVCLCLIPBOARD}
    Win32Check(CloseClipBoard);
    {$ENDIF}
  end;
end;

var
  HTML: string;

begin
  try
    // Usage: CopyImageFromFile.exe test.png
    // test.png is 32 bit with alpha channel
    if ParamCount = 1 then
    begin
      if FileExists(ParamStr(1)) then
      begin
        if LowerCase(ExtractFileExt(ParamStr(1))) = '.png' then
        begin
          HTML := '<img border="0" src="file:///' + ParamStr(1) + '">';
          CopyHTMLAndImageToClipBoard('', ParamStr(1), HTML);
        end;
      end;
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;

end.