Clipboard Size

[tomkupitz]

Zunächst mal die Größe:

Code:

function GetClipBrdDataSize(hWnd: THandle; ClipBrdFormat: Integer): DWord;
var hClipMem: THandle;

begin
  result:=0;

  if not OpenClipBoard(hWnd) then
    Exit;

  if IsClipBoardFormatAvailable(ClipBrdFormat) then
  begin
    hClipMem:=GetClipBoardData(ClipBrdFormat);

    result:=GlobalSize(hClipMem);
  end;

  CloseClipBoard;
end;