Zwischenablage auslesen

[Klaus01]

Warum willst denn Du mit Komponenten arbeiten wo Du doch nur Text aus dem Clipboard holen willst?

Delphi-Quellcode:

function ClipboardTxtToFile (sFileTXT : string) : boolean; 
var 
  tf : TextFile; 

begin 
  Result := False; 

  with Clipboard do 
    begin 
      try 
        Open; 
        if(HasFormat(CF_TEXT)) then 
          begin 
            AssignFile(tf, sFileTXT) ; 
            ReWrite(tf) ; 
            Write(tf, AsText) ; 
            CloseFile(tf) ; 
           Result := True; 
         end; 
      finally 
        Close; 
      end;
    end; 
end;

Grüße
Klaus