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?
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]