Windows error Codes + SHFileOperation

[gmc616]

Danke Christian für den Tipp.

SHFileOperation scheint kein LastError zu setzen. "Der Vorgang wurde erfolgreich ausgeführt." ist ja wohl kein Fehler. Schöne wäre es, wenn der Vorgang erfolgreich gewesen wäre.

Aber das Weglassen des FOF_SILENT-Flags hat mir einen andere Fehlermeldung geliefert:

Zitat:

Datei kann icht umbenannt werden. Wählen Sie nur eine Datei, oder verwenden Sie MS-DOS-Platzhalter ...

Ich verwende SHFileOperation z.Z. so:

Delphi-Quellcode:

function fktRenameDir(psFrom, psTo: string) : boolean;
var
  shellinfo: TSHFileOpStruct;
  nErr : integer;
begin
  shellinfo.Wnd    := 0;
  shellinfo.wFunc  := FO_RENAME;
  shellinfo.pFrom  := PChar(psFrom);
  shellinfo.pTo    := PChar(psTo);
  shellinfo.fFlags := FOF_ALLOWUNDO or
                      // FOF_SILENT or
                      // FOF_FILESONLY or
                      FOF_NOCONFIRMATION;



  nErr := SHFileOperation(shellinfo);
  if nErr <> 0 then
  begin
    ShowMessage('Error: ' + inttostr(nErr) +  ' '  + SysErrorMessage(GetLastError));
  end;

  result := (nErr = 0)
end;

Die Verzeichnisnamen in psFrom und psTo sind korrekt.
psFrom existiert und psTo existiert noch nicht.
Die Verzeichnisse (ich benenne ja mehrere Verzeichnisse in einer Schleife um) sind teilweise leer, teilweise nicht.
Das sollte aber mMn keinen Unterschied machen, da andere Verzeichnisse, egal ob leer oder nicht, korrekt umbenannt werden.

Die Rechte diese Verzeichnisse umzubenennen habe ich auch.

Irgendwie steh ich auf dem Schlauch.
Kann doch wieder nur eine Kleinigkeit sein, die ich einfach übersehe