Список приложений

[AngelNine]

Доброго времени суток. Пишу программу которая получает список запущенных программ. По мере продвижения по коду столкнулся такой проблемой что необходимо получить не только заголовок окна, но и путь к исполняемому файлу, ну или хотя бы его имя. В сети нашел код:

With Form do Begin
    Wnd := GetWindow(Handle, gw_HWndFirst);
    while Wnd <> 0 do begin {Не показываем:}
      if (Wnd <> Application.Handle) and {Собственное окно}
        IsWindowVisible(Wnd) and  {Невидимые окна}
        (GetWindow(Wnd, gw_Owner) = 0) and  {Дочерние окна}
        (GetWindowText(Wnd, buff, sizeof(buff)) <> 0) {Окна без заголовков}
        then Begin
        GetWindowText(Wnd, buff, sizeof(buff));

        GetWindowThreadProcessId(wnd, @pid);
        pr := CreateToolHelp32Snapshot(TH32CS_SNAPMODULE, pid);
        me32.dwSize := SizeOf(me32);
        Module32First(pr, me32);
        CloseHandle(pr);

        MainForm.Memo1.Lines.Add(Format('Программа %s, путь к программе: %s',[buff, me32.szExePath]));
Wnd := GetWindow(Wnd, gw_hWndNext);
   end;
  End;

Но возникла следующая проблема не ко всем приложениям он указывает путь. Программа пишется на Win 8.1 x64. Тестировалось на такой же системе, а так же на Win 7 x32 и Win 8.1 x32. И того тест проводился на 4 машинах. Предположительно проблема связанна с разрядностью системы, т.к. на 32-х разрядной системе программа отработала нормально, а вот на 64-х разрядной не хочет. Товарищи помогите пожалуйста обойти это.

Ребята помогите не уже ли данная конструкция не работает на 64 разрядной системе?