Probleme mit der Zwischenablage

[Catbytes]

Hallo,

habe folgendes Problem: Ich bin gerade an diesem Projekt beschäftigt.

Nun möchte ich, daß wenn der Hotkey gedrückt wird, die aktuelle Zwischenablage gespeichert, der markierte Text kopiert, die Seite bei Wikipedia aufgerufen und die zwischengespeicherte Zwischenablage wieder zurückgelesen wird.

Klappt soweit ganz gut - Problem ist nur, daß das nur einmal klappt.

Beim zweitenmal kommt entweder die Fehlermeldung "Zwischenablage konnte nicht geöffnet werden", oder der String der Zwischenablage ist leer.

Als Anhang ein Beispielprojekt. Da, wo der MessageDlg kommt, wird normalerweise die Wikipedia-Seite aufgerufen. Hotkey ist in diesem Beispiel STRG+1 (Numpad).

Vorgehensweise: Programm starten, Text irgendwo markieren, Hotkey drücken (sollte einmal klappen). Beim zweiten mal krachts dann :-(

Kann mir einer sagen warum?

Edit: Die Datei sndkey32.pas ist bei Delphi 7 auf der Installations-CD unter \INFO\EXTRAS\SENDKEYS zu finden. Wer dies nicht möchte, einfach oben aus der Uses-Klausel entfernen und die vier weiteren Programmzeilen aktivieren ;-)

[Rastaman]

Was macht die Unit Sndkey32 genau :gruebel:

[Catbytes]

Zitat:

Zitat von Gerrit89

Was macht die Unit Sndkey32 genau :gruebel:

Ist ein etwas älterer VB-Befehl, der hier unter Delphi realisiert wurde.

Er sendet an die Anwendung Tastaturcodes, als ob man selbst tippen würde.

Wie gesagt: Ist auf der Delphi (7) CD dabei...

[Catbytes]

:-D

[Catbytes]

weiß den wirklich niemand bescheid? :shock: :gruebel:

[toms]

Kommt der Fehler "Zwischenablage konnte nicht geöffnet werden" hier?

Delphi-Quellcode:

    
    Sendkeys('^c', true); // Sendet CTRL+C an das Fenster

    Sleep(200);

    if ClipBoard.HasFormat(CF_TEXT) then  <<<<< hier?
      ClipText := ClipBoard.AsText;

<<<<< hier?

[Catbytes]

Ja - aber wie geschrieben - (meist) beim 2. Versuch. Der erste klappt tadellos... :gruebel: :(

[Thanatos81]

Hmm, versuch vor der if mal ein Clipboard.Open und wenn du mit allem durch bist ein Clipboard.Close.