Zwischenablage auslesen

**Pixelator**

Hallo zusammen
wie das eben so ist möchte man als blutiger Einsteiger manchmal etwas voreilen weil man ja so auf Ideen kommt...
In welcher Art von Anwendung (Vorlage) kann mich mit dem folgenden Code eine Exe erzeugen. Das Programm soll unsichtbar im Hintergrund ausgeführt werden. Ziel ist es einen Text aus der Zwischenablage in eine Textdatei zu schreiben.
Die Fehlermeldung ist, das Delphi ein Semikolon oder INITIALIZATION erwartet. Wer hilt mir?

zusammenfalten · markieren

Delphi-Quellcode:

			
unit Unit1;

interface

implementation

uses Windows, SysUtils, Clipbrd;

function ClipboardTxtToFile (sFileTXT : string) : boolean;

var

   ps1, ps2 : PChar;

   dwLen : LongWord;

   tf : TextFile;

   hData : THandle;

   begin

  Result := False;

  with Clipboard do begin

   try

    Open;

     if(HasFormat(CF_TEXT)) then begin

      hData := GetComponent(CF_TEXT) ;

      ps1 := GlobalLock(hData) ;

      dwLen := GlobalSize(hData) ;

      ps2 := StrAlloc(1 + dwLen) ;

      StrLCopy( ps2, ps1, dwLen ) ;

      GlobalUnlock( hData ) ;

      AssignFile(tf, sFileTXT) ;

      ReWrite(tf) ;

      Write(tf, ps2) ;

      CloseFile(tf) ;

      StrDispose( ps2 ) ;

      Result := True;

     end;

    finally

     Close;

   end;

  end;

 end

[edit=Christian Seehase]Delphi-Tags korrigiert. Mfg, Christian Seehase[/edit]

Zwischenablage auslesen

Zwischenablage auslesen

Forumregeln