Delphi控制台程序调用Windows剪贴板编译报错：找不到Clpbrd单元

你遇到的这个错误很典型——Clpbrd（或者Delphi XE及以后版本的Vcl.Clipbrd）是VCL可视化框架专属的剪贴板操作单元，而Delphi默认创建的控制台程序并不会自动引入VCL库，所以编译器找不到这个单元。下面给你两种可行的解决方案：

方案一：使用WinAPI直接操作剪贴板（推荐，无VCL依赖） #

对于控制台程序来说，直接调用Windows原生API操作剪贴板是更轻量的选择，不需要引入整个VCL框架。这里是修改后的代码：

program Clipboard_Project;
{$APPTYPE CONSOLE}
{$R *.res}
uses
  System.SysUtils, Winapi.Windows;

function GetClipboardText: string;
var
  hClipboardData: THandle;
  pText: PChar;
begin
  Result := '';
  if not OpenClipboard(0) then Exit;
  try
    hClipboardData := GetClipboardData(CF_TEXT);
    if hClipboardData = 0 then Exit;
    pText := GlobalLock(hClipboardData);
    if Assigned(pText) then
    begin
      Result := StrPas(pText);
      GlobalUnlock(hClipboardData);
    end;
  finally
    CloseClipboard;
  end;
end;

var
  s: String;
begin
  try
    s := GetClipboardText;
    if s = '' then
      Writeln('剪贴板中没有文本内容')
    else
      Writeln('剪贴板内容：', s);
    readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

这个方案通过OpenClipboard、GetClipboardData等WinAPI函数直接和系统剪贴板交互，完全不依赖VCL，适合控制台场景。

方案二：让控制台程序支持VCL单元 #

如果你一定要用Clpbrd单元的封装，需要手动在控制台项目中引入VCL库，注意不同Delphi版本的单元命名有区别：

对于Delphi XE及以后的版本（带命名空间） #

修改uses子句，把Clpbrd替换为Vcl.Clipbrd，同时确保VCL环境初始化完成：

program Clipboard_Project;
{$APPTYPE CONSOLE}
{$R *.res}
uses
  System.SysUtils, Vcl.Clipbrd; // 使用带命名空间的Vcl.Clipbrd
var
  s: String;
begin
  try
    // 初始化VCL环境，确保Clipboard对象可用
    if not InitProc then
      raise Exception.Create('VCL环境初始化失败');

    s := Clipboard.AsText;
    writeln(s);
    readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

对于Delphi 7及更早的版本（无命名空间） #

直接在uses里保留Clpbrd，但需要在项目设置中启用VCL支持，或者手动添加VCL的链接选项。不过这类旧版本的控制台程序引入VCL可能会带来额外的初始化开销，不如方案一高效。

总结一下：控制台程序默认不包含VCL，所以找不到Clpbrd单元。如果追求轻量，优先用WinAPI方案；如果想复用VCL的封装，就手动引入VCL相关单元并确保环境初始化。

内容的提问来源于stack exchange，提问作者Bruce Button