ClipBord

[oldmann]

Hallo CodeZwerg,

Hier ist das Listing:

Delphi-Quellcode:

procedure TForm4.FileListBox1Click(Sender: TObject);
var s,d_name:string;
    i:integer;
begin
  If FileListBox1.ItemIndex >= 0 Then
  begin
    Clipboard.clear;
    d_name:=ExtractFileName(filelistbox1.filename);
    Try
    Assignfile(f,lpf+'\Mustertexte\'+d_name);
    Reset(f);
    while not eof (f) do
    begin
      readln(f,s);
      Clipboard.AsText:=Clipboard.AsText+s+#13#10;
    end;
    Closefile(f);
    Except
    Closefile(f);
    end;
    Form4.Close;
  end;
[COLOR="Blue"]// Hier habe ich Deinen Text eingefügt.[/COLOR]
  for i := 1 to Length(s) do
  begin
    keybd_event(Ord(s[i]), 0, 0, 0);
    Sleep(10);
    keybd_event(Ord(s[i]), 0, 0 or KEYEVENTF_KEYUP, 0);
    Sleep(10);
  end;
end;

Gruss Oldmann