Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.17;
Скачать: CL | DM;

Вниз

Замена фраз в бинарном файле. Помогите   Найти похожие ветки 

 
Timon   (2003-11-06 19:16) [0]

Уважаемые мастера, помогите решить проблему:
Имеется исполняемый EXE-файл. Нужно заменить все вхождения одной фразы на другую и перезаписать этот файл.

Заранее спасибо!


 
Timon   (2003-11-06 19:39) [1]

Чуть не забыл код, он не работает:

procedure TForm1.FormCreate(Sender: TObject);
var
FileHandle: Integer;
iFileLength: Integer;
Buffer: PChar;
p,i,iBytesRead: Integer;
begin
FileHandle:=fileopen("project1.exe",fmOpenReadWrite);
iFileLength := FileSeek(FileHandle,0,2);
FileSeek(FileHandle,0,0);
Buffer := PChar(AllocMem(iFileLength + 1));
iBytesRead := FileRead(FileHandle, Buffer^, iFileLength);
FileClose(FileHandle);
FileHandle:=FileCreate("Project1.exe");
FileWrite(FileHandle,buffer^,length(buffer^));
FileClose(FileHandle);
while pos("FRAZA1",buffer^)<>0 do begin
p:=pos("FRAZA1",buffer^);
delete(buffer^,p,12);
insert("FRAZA2",buffer^,p);
end;
end;


 
WithOut Any ... ©   (2003-11-06 20:05) [2]

Хотя бы примерно напиши, что на что неоюходимо заменить? "ххх" на "ууу" или "0FEB" на "0FBC"?


 
Timon   (2003-11-06 20:11) [3]

Просто "ххх" на "ууу"



Страницы: 1 вся ветка

Текущий архив: 2003.11.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
7-56928
BustaBoss
2003-09-08 01:52
2003.11.17
Как получить список программ из вкладки


1-56675
Daaan
2003-11-05 09:49
2003.11.17
Ошибка регистрации


6-56801
ilka
2003-09-22 16:30
2003.11.17
откуда ошибка (TIdTcpServer TIdTcpClient)


4-56962
Maxim Pshevlotsky
2003-09-02 08:57
2003.11.17
Как заменить значок из ресурсов DLL?


3-56490
Duce
2003-10-28 14:12
2003.11.17
Обработать отмену удаления.