Result := SHFileOperationA...
DoFileWork liefert einen Fehlercode als Integer
>
SHFileOperation
also
Delphi-Quellcode:
If DoFileWork(FO_COPY, edit1.Text, edit2.Text, FOF_AllowUndo
or FOF_NoConfirmation or FOF_NOERRORUI) <> S_OK Then FEHLER('°_°');
S_OK = 0
und
Zitat von
MSDN:
Return Value
Returns zero if successful, or nonzero otherwise.