Práce se schránkou Windows – text

Na závěr si dnes ukážeme, jak zkopírovat do schránky požadovaný text nebo jak ze schránky získat ten, který je tam aktuálně uložen. Budeme k tomu používat knihovnu ClipBrd a napíšeme si jednu proceduru a jednu funkci pro zápis a čtení, jejichž parametrem bude řetězec, který buď zapisujeme, nebo který se nám naopak vrací. Napíšeme si rovněž proceduru na smazání obsahu schránky.
procedure DoSchranky(VkladanyText: string);
var
A: array[0..255] of char;
begin
StrPCopy(A, VkladanyText);
Clipboard.SetTextBuf(A);
end;