Kann Datei nicht Kopieren

[King Lui]

Hallo ich hab ein problem ich verwende in einer application das script hier

Delphi-Quellcode:

function CopyFileEx(const ASource, ADest: String;
 ARenameCheck: boolean = false): boolean;
var
  sh: TSHFileOpStruct;
begin
  sh.Wnd := Application.Handle;
  sh.wFunc := FO_COPY;

  // String muss mit #0#0 Terminiert werden, um das Listenende zu setzen
  sh.pFrom := PChar(ASource + #0);
  sh.pTo := PChar(ADest + #0);
  sh.fFlags := fof_Silent or fof_MultiDestFiles;
  if ARenameCheck then
    sh.fFlags := sh.fFlags or fof_RenameOnCollision;
  Result:=ShFileOperation(sh)=0;
end;

und dann hab ich auf einen button click das hier

Delphi-Quellcode:

CopyFileEx(Application.Exename,'C:\Programme\');

also das programm was gerade gestartet ist, soll sich in c:\programme kopieren aber wenn ich dann klicke kommt der fehler

Zitat:

Kann nicht Kopiert werden, Zugriff verweigert Stellen sie sicher das es nicht verwendet wird blablalba

aber eigentlich kann man doch sachen kopieren wenn sie laufen nur nicht umbenennen und verschieben aber kopieren müsste doch gehen oder nicht?

[Nicolai1234]

Ich glaube, du musst beim kopieren den Zieldateinamen mit angeben... also:

Delphi-Quellcode:

CopyFileEx(Application.Exename,'C:\Programme\MeineEXE.exe');

Und ich weiß nicht, ob der erste Parameter mit kompletten Pfad sein muss. Probier das einfach mal aus, sollte dann auch gehen.

[ringli]

Hast du denn Schreibrechte auf dieses Verzeichnis?

[King Lui]

Zitat:

Zitat von Nicolai1605

Ich glaube, du musst beim kopieren den Zieldateinamen mit angeben... also:

Delphi-Quellcode:

CopyFileEx(Application.Exename,'C:\Programme\MeineEXE.exe');

Und ich weiß nicht, ob der erste Parameter mit kompletten Pfad sein muss. Probier das einfach mal aus, sollte dann auch gehen.

Dadran lags danke :)