Uses Windows;
Function php_clipboard_strlen:integer;
var
  hData:  DWORD;
  pData:  Pointer;
  dwSize: DWORD;
begin
   //Out:(<0.error fail, or reject system)(>0.okai)(0.empty)
  Result := RTCAN;
  if OpenClipBoard(0) then
  begin
    Result := RTREJ;
    hData := GetClipBoardData(CF_TEXT);
    if hData <> 0 then
    begin
      Result := RTFAIL;
      pData := GlobalLock(hData);
      if pData <> nil then
      begin
        Result := RTKWORD;
        dwSize := GlobalSize(hData);
        if dwSize > 0 then result:=dwSize
                      else result:=RTERROR;
        GlobalUnlock(DWORD(pData));
      end;
    end;
    CloseClipBoard;
  end;
end;

Function php_get_clipboardtext(var szText:string):boolean;
var
  hData:  DWORD;
  pData:  Pointer;
  dwSize: DWORD;
begin
  Result := FALSE;
  if OpenClipBoard(0) then
  begin
    hData := GetClipBoardData(CF_TEXT);
    if hData <> 0 then
    begin
      pData := GlobalLock(hData);
      if pData <> nil then
      begin
        dwSize := GlobalSize(hData);
        if dwSize <> 0 then
        begin
          SetLength(szText, dwSize);
          CopyMemory(@szText[1], pData, dwSize);
          Result := TRUE;
        end;
        GlobalUnlock(DWORD(pData));
      end;
    end;
    CloseClipBoard;
  end;
end;