Zwischenablage Zugriff verweigert

[haentschman]

Boah-ey...

...ihr findet immer ein Haar in der Suppe.

Besser so?

Delphi-Quellcode:

except
  on E: EClipboardException do
  begin
    Inc(RetryCount);
    if RetryCount < 50 then
    begin
      Sleep(20)
    end
    else
    begin
      raise EClipboardException.Create('Cannot read clipboard after fifty attempts.' + sLineBreak + 'Originalmessage: (' +  E.Message + ')');
      // Exit(''); // Alternativ statt raise
    end;
  end
  else
    raise;
end;