Вот рабочий код:
#include <FMX.Platform.hpp>
#include <System.IOUtils.hpp>
//очистка буфера обмена
if (TPlatformServices::Current->SupportsPlatformService(__uuidof(IFMXClipboardService)))
{
_di_IFMXClipboardService ClipboardService = TPlatformServices::Current->GetPlatformService(__uuidof(IFMXClipboardService));
ClipboardService->SetClipboard(TValue::Empty);
}
Но в буфере все равно остается (empty). Как же все таки очистить полностью?