ClipboardListener Fehler

[BerndS]

Wie wäre es mit einem Classhelper mit den von jaenicke empfolenen Optionen:

Delphi-Quellcode:

  TClipBoardHelper = class helper for TClipboard
  public
    function TryOpen(TryCount: Integer = 3; TryDelay: Cardinal = 5): Boolean;
  end;

...
{ TClipBoardHelper }

Delphi-Quellcode:

function TClipBoardHelper.TryOpen(TryCount: Integer = 3; TryDelay: Cardinal = 5): Boolean;
begin
  repeat
    try
      Open;
      Result := True;
    except
      Result := False;
      if TryCount > 0 then
      begin
        Dec(TryCount);
        Sleep(TryDelay);
      end;
    end;
  until Result  or (TryCount = 0);
end;

Getestet habe ich das aber nicht und die Defauls sind nur ein Beispiel.