Out of memory

[zumm]

где то в этом вот коде, в одном из таймеров, после минут 10 работы программы, на каждый шаг начинает выдавать Out of memory

procedure Check;
var
 i,j: integer;
begin
 for i:=1 to count do
 begin
  if List[i].flag<>true then
  begin
   if FindWindow(nil, pchar(List[i].Name))<>List[i].wnd then
   begin
    List[i].flag:=true;
    for j:=1 to 128 do
    begin
     if OSW[j]=integer(List[i].wnd) then
      OSW[j]:=-23;
    end;
   end;
  end;
 end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
 h,h1,h2: cardinal;
 Wnd: hWnd;
 buff: array [0..127] OF Char;
 p: PChar;
 i,j: integer;
 f: boolean;
begin
 i:=0;
 Wnd:=GetWindow(Handle, gw_HWndFirst);
 while Wnd<>0 do
 begin
  h:=Wnd;
  h1:=FindWindowEx(h, 0, 'WorkerW', nil);
  h2:=FindWindowEx(h1, 0, 'ReBarWindow32', nil);
  h1:=FindWindowEx(h2, 0, 'ComboBoxEx32', nil);
  h2:=FindWindowEx(h1, 0, 'ComboBox', nil);
  h1:=FindWindowEx(h2, 0, 'Edit', nil);
  p:=StrAlloc(255);
  SendMessage(h1,WM_GETTEXT,WParam(255),LParam(p));
  if (Wnd <> Application.Handle) and IsWindowVisible(Wnd) and (GetWindow(Wnd, gw_child) <> 0) and (GetWindowText(Wnd, buff, sizeof(buff)) <> 0) and FileExists(p+'\pw.ps') then
  begin
   if AnsiUpperCase(GetExeNameByHandle(wnd))='EXPLORER.EXE' then
   begin
    f:=false;
    for j:=1 to 128 do
    begin
     if OSW[j]=wnd then
      f:=true;
    end;
    if f=true then
    else
    begin
     if Form2.Visible=false then
     begin
      inc(i);
      List[i].wnd:=wnd;
      List[i].Name:=string(buff);
      List[i].FullName:=p;
      List[i].flag:=false;
      count:=i;
      Form2.Edit1.Text:=List[i].Name;
      LastWin:=i;
      Form2.Timer1.Enabled:=true;
      Form2.Visible:=true;
      SendMessage(wnd,WM_SYSCOMMAND,SC_MINIMIZE,0);
     end
     else
     begin
      if Form2.Edit1.Text<>string(buff) then
       SendMessage(wnd,WM_SYSCOMMAND,SC_CLOSE,0)
      else
       SendMessage(wnd,WM_SYSCOMMAND,SC_MINIMIZE,0);
     end;
    end;
   end;
  end;
  Wnd:=GetWindow(Wnd, gw_hWndNext);
 end;
 Check;
end;

end.

есть предположение что это из за переменной p...пробовал освобождать FreeMemory(p); не помогает...помогите, дело в том что сроки горят, а программа отказываеться коректно работать...

[zumm]

неужто никто не ответит((

[BARNEY]

а чё отвечать утечка памяти... запустите ваше приложение и посмотрите как оно сжираёт все системные ресурсы.

[zumm]

так не просто ж так оно их сжерает, значит где то нужно что то освобождать...

[_-Re@l-_]

так используй метод Free

[zumm]

так млин, что free то, к чему его применить?!

[Пепел Феникса]

во первых по строке вашей освободите память, вроде там нужно StrDispose
во вторых вижу у вас лист(TList походу) с ним утечек нет?

[zumm]

во первых по строке вашей освободите память, вроде там нужно StrDispose

поподробнее пожалуста

во вторых вижу у вас лист(TList походу) с ним утечек нет?

если вы про List так это:

...
ListDir = record
   wnd: hWnd;
   Name: string;
   FullName: string;
   flag: boolean;
  end;
...
  List: array[1..128] of ListDir;

[Пепел Феникса]

StrDispose(P);
может вам проще на string перейти?
ибо это все старое

вот пример(p в нем это string)

  SetLength(p,256);
  SetLength(p,GetWindowText(h1,PChar(p),Length(p));

[zumm]

сделал StrDispose(P); вроде рабит...пока...а на строку...да уже лень переписывать))