Datein kopieren/verschieben

[jaenicke]

Zitat von jaenicke:

Du musst die Prozedur wie gesagt dir natürlich kopieren.

// EDIT:
Als Hilfe für das Kopieren: Es reicht nicht einen Teil eines Tipps zu kopieren. Das ist wie wenn dir jemand die Anleitung gibt wie du aus einem Brunnen Wasser holen kannst und du dann den erwähnten Eimer nicht mit herunterlässt...
Ich kanns ja kaum glauben, aber ich poste einmal noch einmal das von der verlinkten Seite, nur mit deiner Unit...

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ShellApi;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure ShellFileOperation(fromFile: string; toFile: string; Flags: Integer);
var
  shellinfo: TSHFileOpStructA;
begin
  with shellinfo do
  begin
    wnd   := Application.Handle;
    wFunc := Flags;
    pFrom := PChar(fromFile);
    pTo   := PChar(toFile);
  end;
  SHFileOperation(shellinfo);
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ShellFileOperation('E:\Niels\Versuche\blabla.jpg','E:\Niels\blabla.jpg', FO_MOVE);
end;


end.