Witam mam kod ktory nie bardzo dziala....i probuje sie dowiedziec co jest nie tak...oto kodzik:
const
P1S=314562; // Wielkość tego prga co ma blokować
Var
Bufor,Bufor1:array[0..P1S] of char;
F,G:file;
R:integer;
begin
AssignFle(F,'Prog1.exe'); // Otwórz p1
Reset(F,1);
BlockRead(F,P1S,Sizeof(P1S),R); // Odczytaj jego zawartość
//BlockRead(F,Bufor,Sizeof(P1S),R); wydaje mi sie ze powinno byc tak a nie tak jak powyzej :|
CloseFile(F);
AssignFile(F,'prog2.exe'); // 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
end.
jesli ktos wie co jest powodem zlego dzialania prosze o pomoc [cya] [cya] [cya]