Kann man auch Ordner kopieren???

[Luckie]

Von welchem OS reden wir eigentlich und welche Rechte hat der Benutzer?

[Kieni]

Der "Normaluser" ist in dem Fall der Computeradministrator .. , aber das ist ne andere Baustelle, an der ich im Moment nichts ändern kann und darf!

also von daher passt das schon...

edit: es ist WinXP + Win2000

[Luckie]

Zitat von Kieni:

Der "Normaluser" ist in dem Fall der Computeradministrator

Autsch.

Zitat:

es ist WinXP + Win2000

Dann sollte man als Administrator im Root auch Schreibrechte haben.

[Kieni]

Zitat:

Autsch.

Das "tut" in diesem Fall nix zur Sache. Es MUSS im Moment so sein. Lassen wir es einfach dabei ...

Zitat:

Dann sollte man als Administrator im Root auch Schreibrechte haben.

so ist es ...

ich habe gerade einmal probiert auf R:\000_test zu kopieren. Das funktioniert gut. Nunja, wenn nichts anderes geht, muss ich mir wohl die Ordner alle auslesen und diese dann einzelnen kopieren, oder?

nicht schön, aber sollte funktioniern.

[Grafix1989]

Hallo,

zum 1. Codebeispiel hätte ich da eine Frage, und zwar sagt er mir dass in der Zeile

pFrom := PAnsiChar(FromPath);

ein DCC Fehler: Inkompatible Typen AnsiChar und Char

wie kann ich das beheben?
Danke

Chris

[mkinzler]

Deklariere pFrom als PAniChar

[Grafix1989]

Wenn ich das bei den Variablen mitdeklariere ändert sich nichts... wo muss es hinzugefügt werden?

[himitsu]

Wie sind pFrom und FromPath deklariert?

entweder alles ANSI, Unicode oder dynamisch

PAnsiChar, AnsiChar und AnsiString
oder
PWideChar, WideChar, WideString und UnicodeString
oder
PChar, Char, String

[Grafix1989]

Naja, es sind alle anscheinend als AnsiString und PAnsiChar deklariert. Das merkwürdige ist, dass es anscheinend bei allen anderen funktioniert hat, und bei mir das erste mal der Fehler aufgetreten ist. Verändert habe ich an dem Beispiel nichts.

Code:

function DoCopy(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 := 0;
    wFunc := aOperation;
    pFrom := PAnsiChar(FromPath);
    if ToPath <> '' then
    begin
      pTo := PAnsiChar(ToPath)
    end else begin // target available
      pTo := nil;
    end; // target not available
    fFlags := Flags;
  end; // structure
  Result := SHFileOperationA(SHFileOpStruct);
end;

[Grafix1989]

Es liegt offensichtlich an der Delphi Version. Ab 2009 muss es heißen TSHFileOpStructA. Danke an jaenicke.