Kopieren geht nicht :(

[ThomasWarnecke]

Guten Tag,

Es haut einfach nicht hin

Ich möchte das die Datei sich automatisch auf C:\ kopiert

Code:

var
AlterPfad,NeuerPfad :string;
begin
  AlterPfad:= ExtractFilePath(ParamStr(0));
  NeuerPfad:=('C:\test.exe');

if not FileExists(NeuerPfad) then
  begin
   CopyFile(PChar(AlterPfad), PChar(NeuerPfad), true);

Habei ch etwas falsch bedacht?

Mit freundlichen Grüßen,
Thomas Warnecke