Problem mit der SHFileOperation

[Jamah]

Hi.
Kleines Problem.
Ich habe hier nach Suche im Board das gefundenm und verwende es:

Delphi-Quellcode:

function CopyDir(const fromDir, toDir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc := FO_COPY;
    fFlags := FOF_FILESONLY;
    pFrom := PChar(fromDir + #0);
    pTo := PChar(toDir)
  end;
  Result := (0 = ShFileOperation(fos));
end;

Problem: Wenn ich von Desktop oder sowas Kopiere, gehts.
Aber wenn ich in ein anderes Luafwerk Kopieren will, gehts nicht. Woran könnte das liegen?

[alfold]

Hi, las Dir mal toDir anzeigen ob auch alles richtig drin steht.
Dann habe ich bei PChar(toDir + #0) noch mit angefügt.
Bei Win7 kann es sein das Du keinen Rechte dafür hast?

Ansonsten wüsste ich auch nicht weiter
alfold

[himitsu]

Man könnte ja mal schauen was im MSDN (ShFileOperation) zur Fehlerbehandlung gesagt wird und welche Fehlercodes es gibt.

> und schon hätte man den Grund, warum es nicht geht.

Und ja, das eine + #0 fehlt noch, denn pFrom und pTo geben StringListen an.
> die Einträge jeweils durch #0 getrennt
> und das Ende der Liste mit #0#0

Da ein String schon ein implizites #0 am Ende besitzt, wird über +#0 das abschließende #0#0 erzeugt.