Имеется список exe файлов, небольшого размера.
Пример, список:
1.exe
2.exe
3.exe
Нужно в конце каждого из низ в добавить данные, в виде Hex строки. В Memo1 расположен текст.
2010
2011
2012
Нужно записать каждое из значений из memo в конце каждого exe файла - что бы на выходе получилось:
Папка с Именем "2010"
И в неё скопированы три файла **1.exe, 2.exe, 2.exe** (в каждом из которых в Hex (в конце) - добавлена строка **2010** ).
Папка с Именем "2011"
И в неё скопированы три файла **1.exe, 2.exe, 2.exe** (в каждом из которых в Hex (в конце) - добавлена строка **2011** ).
Папка с Именем "2012"
И в неё скопированы три файла **1.exe, 2.exe, 2.exe** (в каждом из которых в Hex (в конце) - добавлена строка **2012** ).
У меня есть код вот такого плана и он делает изменения только в одном файле. Прошу помощи в решении данного вопроса:
function AttachToFile(const AFileName: string;
MemoryStream: TMemoryStream): Boolean;
var
aStream: TFileStream;
iSize: Integer;
begin
Result := False;
if not FileExists(AFileName) then
Exit;
try
aStream := TFileStream.Create(AFileName, fmOpenWrite or fmShareDenyWrite);
MemoryStream.Seek(0, soFromBeginning);
aStream.Seek(0, soFromEnd);
aStream.CopyFrom(MemoryStream, 0);
iSize := MemoryStream.Size + SizeOf(Integer);
aStream.Write(iSize, SizeOf(iSize));
finally
aStream.Free;
end;
Result := True;
end;
function LoadFromFile(const AFileName: string; MemoryStream: TMemoryStream)
: Boolean;
var
aStream: TFileStream;
iSize: Integer;
begin
Result := False;
if not FileExists(AFileName) then
Exit;
try
aStream := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite);
aStream.Seek(-SizeOf(Integer), soFromEnd);
aStream.Read(iSize, SizeOf(iSize));
if iSize > aStream.Size then
begin
aStream.Free;
Exit;
end;
aStream.Seek(-iSize, soFromEnd);
MemoryStream.SetSize(iSize - SizeOf(Integer));
MemoryStream.CopyFrom(aStream, iSize - SizeOf(iSize));
MemoryStream.Seek(0, soFromBeginning);
finally
aStream.Free;
end;
Result := True;
end;
// А тут у меня идет изменения в файле, то есть перезапись
procedure TForm1.SaveClick(Sender: TObject);
var
aStream: TMemoryStream;
begin
aStream := TMemoryStream.Create;
Memo1.Lines.SaveToStream(aStream);
AttachToFile('Test.exe', aStream);
aStream.Free;
end;
// В данном коде можно извлечь - посмотреть результат изменений
procedure TForm1.LoadClick(Sender: TObject);
var
aStream: TMemoryStream;
begin
aStream := TMemoryStream.Create;
LoadFromFile('Test.exe', aStream);
Memo1.Lines.LoadFromStream(aStream);
aStream.Free;
end;