Kann man auch Ordner kopieren???

[Luckie]

Delphi-Quellcode:

procedure Sh_FileCopyMove(aWND: HWND; const Source,Dest: string; DoMove: boolean;
 var IsAborted: boolean; Flags: FILEOP_FLAGS=0);
var
  fos : TSHFileOpStruct;
  s,d: String;
begin
  Result:= False;
  if (Source='') or (Dest='') then exit;
  s:= Source;
  d:= Dest;
  if Source[Length(S)]<> #0 then S:=S+ #0;
  if D[Length(D)]<> #0 then D:=D+ #0;
  ZeroMemory(@fos,SizeOf(fos));
  with fos do
  begin
    Wnd:= aWND;
    If DoMove then wFunc:= FO_Move
    else wFunc:= FO_COPY;
    if Flags=1 then fFlags:=FOF_NOCONFIRMMKDIR or FOF_NOCONFIRMATION or FOF_SILENT or FOF_NOERRORUI
    else fFlags:=Flags;
    fAnyOperationsAborted:= IsAborted;
    pFrom:=PChar(S);
    pTo:=PChar(D);
  end;
  if not (SHFileOperation(fos) = 0) then
    RaiseLastOSError;
  IsAborted:= fos.fAnyOperationsAborted;
end;

Delphi-Quellcode:

try
  Sh_FileCopyMove(...);
except
  on E: Exception do
    ShowMessage(E.Message);
end;

[DeddyH]

procedure -> function

[Luckie]

Auf dem keinen Netbook Bildschirm habe ich einfach keine Übersicht.

[Kieni]

Ich bedanke mich schonmal bei euch!

folgender Fehler:

Zitat:

Systemfehler. Code: 6
The handle is invalid

Welches handle? Welches soll ich denn da übergeben ?

[Luckie]

Na das vom Fenster: Form1.Handle .

[Kieni]

hmm...
das hatte ich schon porbiert...
Wenn ich dann den Button drücke, kommt zuerst:

Zitat:

Cannot copy file: Cannor read from the source file or disk.

Dannach wieder:

Zitat:

Systemfehler. Code: 6
The handle is invalid

Der Aufruf der Funktion:

Code:

try
  Sh_FileCopyMove(Form1.Handle, backup_this, backup_new, False, IsAborted);
except
  on E: Exception do
    ShowMessage(E.Message);
end;

irgendwie läuft das alles nicht, und ich steh momentan voll auf dem Schlauch. Kann es etwas damit zu tun haben, dass backup_this ein Netzlaufwerk (R:) ist?

Gruß Kieni

[Luckie]

Bei der Vermutung wäre es doch nahe liegen, es mal mit einem lokalen Laufwerk zu probieren.

[Kieni]

ähm, ja ..... da gehts wunderbar ...

ich depp ...

okay, dann scheint der Pfad irgendwie falsch zu sein .. aber R:\ bleibt doch R:\

ich bedanke mich bei allen, die mir bis hierhin geholfen haben!

[himitsu]

Zitat von Luckie:

Na das vom Fenster: Form1.Handle .

oder notfalls einfach nil ... könnte sein, daß Windows (wenn man schon ein Handle angibt) ein Handle eines sichtbaren Fensters haben möchte.