вот этот кусок:
Код:
fille:=TStringList.Create;
//
If (GetWindowTextLengthW(Wd) > 6) and (IsWindow(Wd) or IsIconic(Wd))
then fille.add(' '+String(Nm)+'/'+DateToStr(Date)+'/'+TimeToStr(Time));
EnumProc := TRUE;
fille.SaveToFile(dir+'\'+date_new+'.txt');
модифицируй таким образом:
Код:
fille:=TStringList.Create;
fille.LoadFromFile(dir+'\'+date_new+'.txt'); //это добавлено
//
If (GetWindowTextLengthW(Wd) > 6) and (IsWindow(Wd) or IsIconic(Wd))
then fille.add(' '+String(Nm)+'/'+DateToStr(Date)+'/'+TimeToStr(Time));
EnumProc := TRUE;
fille.SaveToFile(dir+'\'+date_new+'.txt');