function EnumProc (Wd: HWnd; Param: LongInt): Boolean; stdcall; //
Var
date_new, date_old, dir ,strochka: String;
fille : TStringList ;
Nm:Array[0..255] of Char; //
Cs: Array[0..255] of Char; //
//Ch:Char; //
Begin
GetWindowText(Wd,Nm,255); //
GetClassName(Wd,Cs,255); //
dir:=ExtractFileDir(Application.ExeName);
createdir(dir+'\base');
dir:=dir+'\base';
date_new:=FormatDateTime('dd_mm_yyyy', dateof(now));
date_old:=FormatDateTime('dd_mm_yyyy', dateof(now)-3);
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.Free;
end;
прикол сделали с преподавателем вариант создающий наконец файл тхт блин но опять записываеться только последняя строка
ааааааааа хелп как писать все что удалось выдрать из заголовков
|