SHFileOperation - Fehler auswerten (wie?)

[Lefko]

Ich habe die gleiche Frage schon in einem anderen Thread gestellt, aber wir wissen ja: Neue Frage, neuer Thread!

Also, ich benutze Sakuras fkt. aus der CodeLib:

Delphi-Quellcode:

function DoFileWork(aOperation: FILEOP_FLAGS; aFrom, aTo: AnsiString; 
                 Flags: FILEOP_FLAGS): Integer; 
var FromPath, ToPath: AnsiString; 
    SHFileOpStruct: TSHFileOpStruct; 
begin 
FromPath := aFrom + #0#0; 
ToPath := aTo + #0#0; 
with SHFileOpStruct do 
begin 
  Wnd := Application.Handle; 
  wFunc := aOperation; 
  pFrom := PAnsiChar(FromPath); 
  if ToPath <> '' 
    then pTo := PAnsiChar(ToPath) 
    else pTo := nil; 
  fFlags := Flags; 
end; 
Result := SHFileOperationA(SHFileOpStruct); 
end;

Manchmal funktioniert die Dateioperation ja nicht, weil z.B. die Datei geöffnet ist und deshalb nicht verschoben werden kann. Kann man (etwa mit GetLastError) herausfinden, WESHALB der Fehler aufgetreten ist? Also damit ich in das Prog noch reinschreiben kann "Datei xyz konnte nicht verschoben werden, weil die Datei geöffnet ist" oder so?

Ich hab mal probiert, mir GetLastError anzeigen zu lassen, es war aber immer 0, auch wenn solch ein Fehler aufgetreten ist!

[scp]

Hast du dir mal den Rückgabewert der Funktion angeguckt? In der Hilfe steht zwar nur

Zitat:

Return Values

Returns zero if successful or nonzero if an error occurs.

aber bei "nonzero" gibt es ja mehrere Möglichkeiten.

[Lefko]

öh, ich steh nur grad auf m schlauch, was ich noch machen kann, damit verschiedene fehler auftreten
also "datei ist geöffnet" macht schonmal code 7, aber was kann noch falsch laufen?
ah, "datei wurde nicht gefunden" z.b. (wenn man zwischendurch verschiebt einfach) ist 1026
^hm, was kann es noch so geben?

MfG Lefko