Otoz teraz mam zamiar sie troche rozpisac... Buduje program ktory zaklada haslo na wybrany exe. Zadaniem mojego programu jest wklejenie mojego drugiego exeka do exeka docelowego za pomoca takiego (i wylacznie) kodu:
AssignFile(F,'PS.exe'); // Otwórz p1
Reset(F,1);
BlockRead(F,Bufor,Sizeof(Bufor),R); // Odczytaj jego zawartość
CloseFile(F);
AssignFile(F,Edit1.Text); // otwórz plik blokowany
Reset(F,1);
Seek(f,0); // Przejdź na początek
BlockRead(F,Bufor1,Sizeof(Bufor1),R); // Odczytaj początek
Seek(F,FileSize(F)); // Przejdź na koniec
BlockWrite(F,Bufor1,Sizeof(Bufor1),R); // Zapisz odczytany początek plik
Seek(F,0); // Wróć na początek
BlockWrite(F,Bufor,Sizeof(Bufor),R); // Zapisz program blokujący
Closefile(F); // Zamknij plik
Widać po zalozeniu blokady, ze exe docelowy zwiekszyl swoja objetosc (eureka) natomiast exe nie uruchamia sie... Pojawia sie RUNTIME ERROR 216 at 00042EF2 i na tym staje... Nie wiem czy jest to za sprawa niepelnego kodu ktory wczesniej podalem czy za sprawa powalonego (jesli w ogóle jest powalony - osobno rusza bez problemu) pliku PS.exe
[???]