Dateien Kopieren (Ins WinDir)

[DEADHunter]

Hi,

wusste ich nicht

Code:

Function WinDowsDir:String;
var
  a : Array[0..MAX_PATH] of char;
  Temp:String;
begin
  GetWindowsDirectory(a, sizeof(a));

  Temp:=(StrPas(a));
  Temp:=copy(temp,length(temp),1); /// Abschließenden Slash anfügen !

   if Temp='\' then
     WinDowsDir:=((trim(StrPas(a))))
   else
     WinDowsDir:=((trim(StrPas(a))))+'\';
end;

procedure TForm1.Button15Click(Sender: TObject);

var
  mem : TMemoryStream;
  FilePathA, FilePathB : String;
begin
  FilePathA := 'C:\test.exe'; // Pfad der zu kopierenden Datei
  FilePathB := 'C:\WinDowsDir\NEUETEST.exe'; // Zielpfad
  mem := TMemoryStream.Create;
  try
    mem.LoadFromFile(filePathA);
    mem.SaveToFile(FilepathB);
  finally
    mem.Free;
  end;

GWas ist nun wieder falsch (Hab lang nicht mehr mit Delhpi gearbeitet)