.exe soll Kopie von sich selbst erstellen

**Viktorii**

Moin.

Wie der Titel schon sagt, soll eine .exe eine Kopie von sich selbst erstellen. Das ist mein Lösungsansatz:

Delphi-Quellcode:

			  //--- Datei öffnen und einlesen

  FileHandle := FileOpen(Application.ExeName, fmShareDenyNone);

  FileLength := FileSeek(FileHandle,0,2);

  FileSeek(FileHandle,0,0);

  Buffer := PChar(AllocMem(FileLength + 1));

  BytesRead := FileRead(FileHandle, Buffer^, FileLength);

  FileClose(FileHandle);

  //--- Neue Datei schreiben

  FileHandle := FileCreate(ExtractFilePath(Application.ExeName) + '\Copy.exe', fmCreate);

  BytesWritten := FileWrite(FileHandle, Buffer, FileLength);

  FileClose(FileHandle);

Es wird zwar eine Datei erstellt, aber diese ist 0 Byte groß.

Wenn ich mir den Inhalt meiner lokalen Variablen anschauen, sehe ich, dass FileWrite schief geht:

markieren

Code:

			Name des Ausdrucks   Wert

BytesRead   5762995

FileLength   5762995

BytesWritten   -1

Die Frage ist nur warum?

.exe soll Kopie von sich selbst erstellen

.exe soll Kopie von sich selbst erstellen

Forumregeln