Форум: "Начинающим";
Текущий архив: 2006.08.13;
Скачать: [xml.tar.bz2];
ВнизЗамена байт Найти похожие ветки
← →
Alfa (2006-07-23 17:51) [0]Всем привет! Подскажите, как можно заменить в файле размером около 20 мб определенные несколько байт?
← →
Fay © (2006-07-23 17:56) [1]CreateFile
SetFilePointer(Ex)
WriteFile
CloseHandle
← →
Anatoly Podgoretsky © (2006-07-23 18:42) [2]Взломом занимаешься?
← →
KilkennyCat © (2006-07-23 18:44) [3]ну почему же сразу взлом... просто ошибку в собственном проекте нашел, наверное, а исходники потерял :))
← →
Anatoly Podgoretsky © (2006-07-23 18:55) [4]Отгадал все буквы, не смог отгадать слово
← →
Alfa (2006-07-23 19:23) [5]Нет, не взломом :-)
← →
Anatoly Podgoretsky © (2006-07-23 19:24) [6]Рассказывай
← →
Gydvin © (2006-07-23 21:31) [7]
procedure TForm1.Button1Click(Sender: TObject);
var
f:file;
s:char;
begin
assignfile(f,Filename);
reset(f,1);
seek(f,номер_байта_который_нуно_менять);
s:=#33;
blockwrite(f,s,1);
closefile(f);
end;
← →
Мефисто (2006-07-23 21:47) [8]
> номер_байта_который_нуно_менять
мне вот надо байт переписать №1... :)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.08.13;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.035 c