Ich erhalte immer mal wieder aber einfach zu sporadisch und nie reproduzierbar die Meldung:
"Zwischenablage konnte nicht geöffnet werden"
Jemand eine Idee dafür?!
Ich weiss nicht mal ob es bein Einfügen in diese oder erst beim auslesen entsteht!
hier mal die Kopierfunktion
Delphi-Quellcode:
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
keybd_event(Ord('C'), MapVirtualKey(Ord('C'), 0), 0, 0);
keybd_event(Ord('C'), MapVirtualKey(Ord('C'), 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0);
und zum auslesen:
Delphi-Quellcode:
function GetStrFromClipbrd: string;
begin
if Clipboard.HasFormat(CF_TEXT) then
Result := Clipboard.AsText
else
begin
Result := '';
end;
end;
Vielleicht hat jemand eine Idee wie ich diese Meldung udn das Problem dessen beheben kann
Danke