Einzelnen Beitrag anzeigen

tomkupitz

Registriert seit: 26. Jan 2011
341 Beiträge
 
Delphi 12 Athens
 
#2

AW: Clipboard Size

  Alt 27. Mai 2021, 12:37
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;
  Mit Zitat antworten Zitat