Problem mit DoFileWork() aus CodeLibrary

[himitsu]

So wäre es aber Ansi ... ich würde es eher andersrum ändern.

ab D2009 Unicode (davor ANSI):

Delphi-Quellcode:

function DoFileWork(aOperation: FILEOP_FLAGS; aFrom, aTo: String;
    Flags: FILEOP_FLAGS): Integer;
var
  SHFileOpStruct: TSHFileOpStruct;
begin
  with SHFileOpStruct do
  begin
    Wnd := 0;
    wFunc := aOperation;
    pFrom := PChar(aFrom + #0);
    if aTo <> '' then
      pTo := PChar(aTo + #0)
    else
      pTo := nil;
    fFlags := Flags;
  end;
  Result := SHFileOperation(SHFileOpStruct);
end;

immer ANSI:

Delphi-Quellcode:

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

[mirage228]

Die von mir erstellte und hier verlinkte Wrapper-Unit für SHFileOperation sollte ohne weitere Änderungen Delphi 2009 und 2010-kompatibel sein...