Copy Unicode Text To Clipboard - Delphi

DarkCoderSc personal avatar
DarkCoderSc

Jean-Pierre LESUEUR

uses System.SysUtils, Winapi.Windows;

// ...

procedure CopyToClipboard(const AString : String);
begin
  if not OpenClipboard(0) then
    raise EWindowsException.Create('OpenClipboard');
  try
    if not EmptyClipboard() then
      raise EWindowsException.Create('EmptyClipboard');

    var ADataLength := (Length(AString)+1) * SizeOf(WideChar);
    var hMem := GlobalAlloc(GMEM_MOVEABLE, ADataLength);
    try
      var pMem := GlobalLock(hMem);
      try
        CopyMemory(pMem, PWideChar(AString), ADataLength);

        ///
        if SetClipboardData(CF_UNICODETEXT, hMem) = 0 then
          raise EWindowsException.Create('SetClipboardData');
      finally
        GlobalUnlock(hMem);
      end;
    finally
      GlobalFree(hMem);
    end;
  finally
    CloseClipboard();
  end;
end;

// ...

CopyToClipboard('Hello, World');

Creating and researching code snippets takes time and effort. You’re welcome to share them through your own platforms, but please don’t forget to credit the original author, here: Jean-Pierre LESUEUR.

Depends On

Implemented By Technique

Featured Windows APIs

Created

May 9, 2025

Last Revised

May 14, 2025