Dateien Kopieren (Ins WinDir)

[DEADHunter]

Hallo,

ich habe im Easy Helper folgendes gefunden:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  mem : TMemoryStream;
  FilePathA, FilePathB : String;
begin
  FilePathA := Edit1.Text; // Pfad der zu kopierenden Datei
  FilePathB := Edit2.Text; // Zielpfad
  mem := TMemoryStream.Create;
  try
    mem.LoadFromFile(filePathA);
    mem.SaveToFile(FilepathB);
  finally
    mem.Free;
  end;
end;

Das hab ich so umgeschrieben, das eine bestimmte Datei kopiert wird, ich möchte aber, das die ins Windows Verzeichniss kommt, mit %WinDir% lief es leider nicht