delphi 剪切板变量_delphi – 如何将自定义格式剪贴板数据粘贴到TMemo中？

我这样写的：

program ProbeClipboard;

{$APPTYPE CONSOLE}

uses

SysUtils,ClipBrd;

var

CF_GPX: Cardinal;

ClipboardData: Windows.HGLOBAL;

Ptr: Pointer;

Size: DWORD;

begin

CF_GPX := RegisterClipboardFormat('GPX');

Clipboard.Open;

try

if Clipboard.HasFormat(CF_GPX) then

begin

Writeln('GPX format available in clipboard');

ClipboardData := Clipboard.GetAsHandle(CF_GPX);

if ClipboardData=0 then

RaiseLastOSError;

Ptr := Windows.GlobalLock(ClipboardData);

if Ptr=nil then

RaiseLastOSError;

try

Size := Windows.GlobalSize(ClipboardData);

//Ptr now points to a memory block of Size bytes

//containing the clipboard data

finally

Windows.GlobalUnlock(ClipboardData);

end;

end;

finally

Clipboard.Close;

end;

end.

请注意,我移动了剪贴板“打开”命令,该命令将剪贴板锁定在CF_GPX格式的测试之外.这是为了避免代码中存在竞争条件.在您的代码中,可以在HasFormat调用和OpenClipboard调用之间修改剪贴板.

我还专门使用了Clipboard类.这个类有你需要的所有,你不需要使用原始的Win32剪贴板API.

我甚至把错误检查！