Forum: Object-Pascal / Delphi-Language
by Viktorii,
23. Mär 2011
Zeile 68 ist das assert nach FileWrite...
Das lesen der Datei scheint zu funktionieren. In dem Buffer sind auch die richtigen Daten (habe die ersten paar Bytes überflogen).
@himitsu: PChar, weil Delphi mir das per Refactoring vorgeschlagen hat. Habe ich nicht drüber nachgedacht und einfach weiter gedrückt... Pointer bringt aber keine Änderung...
Forum: Object-Pascal / Delphi-Language
by Viktorii,
23. Mär 2011
Er meldet das hier
Hilft das weiter? Mir hilft es nicht weiter... :(
@himitsu: CopyFile funktioniert gut und ist mit einer Zeile auch einfacher...
Forum: Object-Pascal / Delphi-Language
by Viktorii,
23. Mär 2011
Moin.
Wie der Titel schon sagt, soll eine .exe eine Kopie von sich selbst erstellen. Das ist mein Lösungsansatz:
//--- 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);