Zwischenablage in externes Programm benutzen

[CTest]

Hallo,

Ich versuche aus einem Programm einen markierten Wert heraus zu kopieren, diesen zu halbieren und wieder einzufügen, die Shortcuts Strg+C und Strg+V sind durch das Programm deaktiviert, deshalb führe ich einen Rechtsklick aus und kopiere, bzw. füge ein. Das klappt beim ersten Durchlauf, beim 2. Durchlauf wird dann beim lesen des kopierten Wertes der Fehler 'Die Zwischenablage kann nicht geöffnet werden.' ausgelöst.
Hab auch schon mehreres ausprobiert, clipboard.clear, open/close, create/free.
Das Problem ist vielleicht, dass bei Clipboard.GetAsText auch open/close aufgerufen wird, und somit die Zwischenablage andere Programme ignoriert, deshalb hab ich versucht GetAsText zu ersetzen mit:

Code:

{* var s : String;
Data : THandle;
PData : Pointer; *}

s := IntToStr(StrToInt(PChar(GlobalLock(GetClipboardData(CF_TEXT)))) div 2);
GlobalUnlock(GetClipboardData(CF_TEXT));

Data := GlobalAlloc(GMEM_MOVEABLE+GMEM_DDESHARE, Length(s) + 1);
PData := GlobalLock(Data);
Move(PChar(s)^, PData^, Length(s) + 1);
Clipboard.Clear;
SetClipboardData(CF_TEXT, Data);
GlobalUnlock(Data);

Danach ist die Zwischenablage aber leer, schon beim ersten Durchlauf.

Mit openClipboard/closeClipboard hab ich es noch nicht probiert, weil ich das Handle von dem Programmfenster nicht habe, aber würde da nicht auch bei GetAsText Clipboard.open aufgerufen werden und die Zwischenablage auf mein Programm einschränken?

edit1: starte das Programm mit

Code:

ShellExecute(h, 'open', 'C:\Programme\....exe', nil, nil, SW_MAX);

h ist danach aber 0, warum? Wie kann ich das Programm starten, dass das Handle gleich übergeben ist?