Nochmal, GetLastError gibt nur den letzten Fehlercode an, aber ob es einen Fehler gab und somit in GetLastError überhaupt etwas drin steht, dass muß man anders rüfen!
Delphi-Quellcode:
//RichEdit1.PasteFromClipboard;
if SendMessage(RichEdit1.Handle, WM_PASTE, 0, 0) <> ... then
RaiseLastOSError; //RaiseLastWin32Error;
Hmmm, Problem ist nur, dass
WM_PASTE garkeinen Rückgabewert hat, mit dem man die erfogreiche Funktion testen könnte.
Delphi-Quellcode:
SetLastError(NO_ERROR);
RichEdit1.PasteFromClipboard; //SendMessage(RichEdit1.Handle, WM_PASTE, 0, 0);
if GetLastError <> NO_ERROR then
RaiseLastOSError; //RaiseLastWin32Error;
Aber ob hier überhaupt ein Fehlercode gesetzt wird und ob der Wert überhaupt von Bedeutung ist, dass ist 'ne andere Geschichte.
Laut Dokumentation nicht.
PS: Eventuell muss die Komponente den Eingabefokus besitzen, um das Copy/Paste verarbeiten zu können.
