Verzeichnisse kopieren mit ShFileOperation erzeugt Fehler

[matashen]

Hallo zusammen,

ich bin jetzt schon seit 2 Stunden in Hilfen und Foren am lesen und suchen, warum ich nix kopieren kann.

Ich hatte folgende Routine schonmal erfolgreich verwendet um Verzeichnisse zu kopieren

Delphi-Quellcode:

function CopyDir(const fromDir, toDir: widestring): Boolean;
// ^^^ von String nach widestring nach Problemen mit langen Dateinamen ^^^
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;

So hab ich diesen Code genommen und in mein neues Projekt kopiert.
leider funzt das gar nicht. Weder eine Datei zu kopieren noch ein ganzes Verzeichnis.
der letzte verzweifelt aufruf war
copydir('D:\Memotest.bmp','XXXMEO.BMP') Als Antwort vom System bekomme icheine Warnmeldung mit der Schrift
Datei kann nicht kopiert werdenie Quelldatei oder vom Datenträger kann nicht kopiert werden

weis da jemand rat woher dieser Fehler kommt ?

Gruß Matthias