Schreiben in Zwischenablage

[smallsmoker]

und wenn man das ganze in ner konsolen anwendung ohne die unit clipbrd machen will dann benutzt mann einfach folgende funktion:

Delphi-Quellcode:

procedure CopyTextToClipboard(aWnd: HWND; aText: PChar);
var
  Data: THandle;
  DataPtr: Pointer;
  Size: Integer;
  oldWND: HWND;
begin
  Size := Length(aText) + 1;
  OpenClipboard(aWnd); //Open Clipboard
  try
    EmptyClipboard; // Clear Clipboard
    oldWND := SetClipboardViewer(aWnd); // Clipboard für Programm registr.
    Data := GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE, Size); // Get Memory
    try
      DataPtr := GlobalLock(Data);
      try
        Move(aText^, DataPtr^, Size);
        SetClipboardData(CF_TEXT, Data); // Clpbrd-Format as Text & send Text
      finally
        GlobalUnlock(Data);
      end;
    except
      GlobalFree(Data); // Free res. Memory
      raise; // Get global Memory Err
    end;
    ChangeClipboardChain(aWnd, oldWND);
  finally
    CloseClipboard; //Close Clipboard
  end;
end;

hier entnommen

mfg smallsmoker

[Buttercreme]

Hallo DeddyH ,

Leider funktioniert auch das nicht ...

Wenn ich

Delphi-Quellcode:

ClipBoard.Clear;
clears := TStringList.Create;
clears.Text := 'clear';
Clipboard.AsText := clears.Text;

weglasse, funktioniert es wieder ... Leider ist das keine Lösung (ich brauche das clear in der Zwischenablage).

Ich werde nun den Ansatz von smallsmoker ausprobieren.

EDIT:

Ich glaube es funktionier ! Vielen Dank smallsmoker :love:

Auch allen anderen die sich beteiligt haben. :hello: