Помогите избавиться от утечки

[garuna]

Добрый вечер! Прошу помочь понять в чем проблема. Нижеприведенная функция крутится в таймере с интервалом 1сек и извлекает текущий адрес папки из проводника. Если смотреть в диспетчере, то с каждой секундой потребляемая память увеличивается на 50-60Кб. Почему так происходит и как это предотвратить?

uses 
 Winapi.ActiveX, SHDocVw, System.Win.ComObj, ShLWAPI;

function ExtractDirAddress(Wnd: HWND): string;
var
 ShellWindows: IShellWindows;
 CurrentWindow: SHDocVw.IWebBrowser2;
 ResultSize: DWORD;
begin
 ShellWindows:= CoShellWindows.Create; //полагаю что созданный экземпляр нужно в итоге освобождать, но в документации не нашел метода "Free" или чего-то подобного
  for var i:= 0 to ShellWindows.Count - 1 do
  begin
  if Supports(ShellWindows.Item(i), IWebBrowser2, CurrentWindow)
  then
  begin
   CurrentWindow:= ShellWindows.Item(i) as IWebBrowser2;
   if (EndsText(':\windows\explorer.exe', CurrentWindow.FullName)) and (CurrentWindow.HWND = Wnd)
   then Result:= CurrentWindow.LocationURL;
  end;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
var
 S: string;
begin
  S:= ExtractDirAddress(GetForegroundWindow);
  if S > ''
  then mmo1.Text:= '[' + TimeToStr(Now) + ']: ' + S;
end;

end;

[Pavia]

Сообщение от garuna

ShellWindows:= CoShellWindows.Create; //полагаю что созданный экземпляр нужно в итоге освобождать, но в документации не нашел метода "Free" или чего-то подобного

Интерфейсы освобождаются через nil. Но вообще и этого не требуется, так как там идёт подсчёт ссылок и при выходе из функции он так же автоматически удаляется.

Если считаете что дела в этом объекте сделайте его глобальным.

[garuna]

Сообщение от Pavia

Интерфейсы освобождаются через nil. Но вообще и этого не требуется, так как там идёт подсчёт ссылок и при выходе из функции он так же автоматически удаляется.

Если считаете что дела в этом объекте сделайте его глобальным.

Пробовал освобождать и через nil, и делать переменную ShellWindows глобальной - ничего не помогло

Но вообще и этого не требуется, так как там идёт подсчёт ссылок и при выходе из функции он так же автоматически удаляется.

Да, но что делать если этот код вызывается не один раз, а постоянно крутиться в таймере увеличивая с каждым разом потребляемую память? Неужели вручную никак нельзя освободить?

[Pavia]

Сообщение от garuna

если этот код вызывается не один раз, а постоянно крутиться в таймере увеличивая с каждым разом потребляемую память? Неужели вручную никак нельзя освободить?

ReportMemoryLeaksOnShutdown := true;
Показывает что утечки нет.

[garuna]

Сообщение от Pavia

ReportMemoryLeaksOnShutdown := true;
Показывает что утечки нет.

да, но в диспетчере нарастает память

[Pavia]

Что тут можно сказать ваш код верный. Утечки в Delphi нет. Если утечка и есть, то она уровням ниже в shlwapi.dll. Вы как виндоус хотите переписать?

У меня в диспетчере память не растёт. Но вообще у меня win10 и там диспетчер задач очень странно показывает используемую память. Так что возможно дело в нём.