FindFirst/FindNext und dann in der Schleife jeweils >
Append,
Write und
Close.
oder in Neudephianisch:
Delphi-Quellcode:
for Filename in TDirectory.GetFiles(ParamStr(1), '*') do
//TFile.WriteAllText(Filename, TFile.ReadAllText(Filename) + ParamStr(2));
TFile.AppendAllText(Filename, ParamStr(2));
Und wie schon erwähnt wurde, ist soein Vorgehen natürlich nur für Textdateien halbwegs sinnvoll
und hat per se absolut nichts mit MD5 zu tun, außer dass sich natürlich der Hash jeder Datei ändert, wenn man deren Inhalt ändert.