FindWindowByClassName в бейсике применимо?

[Pantalone]

Пробую из InnoSetup найти свое приложение через FindWindowByClassName , но что-то на по Form1 ни frmMyAppForm не находится. Какой класс у окна в бейсике и можно ли ему свое имя задать?
Пробовал искать по FindWindowbyWindowName и заголовку приложения, ищет хорошо, включая оанк проводника, открытые на папке с таким именем, мне такое нафиг не надо Можно мутексы задействовать, н оу предыдущих версий проги мутексов нету и найти их не смогу. Посоветуйте еще че-нить.

[Хакер]

Какого фига VB-шное окно должно иметь класс, совпадающий с именем формы?

[Pantalone]

Да я не в курсе как выглядит имя класса окна в VB и можно ли его менять. Вот интересуюсь.

[Sebas]

Да я не в курсе как выглядит имя класса окна в VB и можно ли его менять. Вот интересуюсь.

Не путай класс окна Windows с классом VB.
Тёплое и мягкое.

В Вб можно зарегистрировать свой класс окна. Юзай WinApi.

[Pantalone]

Т.е. у обычного приложения я FindWindowByClassName из InnoSetup никакой получить не могу?

[Хакер]

Не знаем, что ты можешь получить, а что нет.

Ты скажи, какая задача.

[Pantalone]

Задача при запуске сетапа определить что устанавливаемая прога запущена и сказать, что надо бы выгрузить перед сетапом.
Как это сделать я теперь знаю, через mutex например. Но фигня в том что в предыдущих версиях проги никаких mutex не реализовано. Можно через FindWindowbyWindowName('AppTitle'), но если в этот момент открыта папка с именем AppTitle, то сетап на нее тоже среагирует. Можно так же попробовать FindWindowbyWindowName('AppMainWindowCaption'), но Caption у окна постоянно меняется за исключением небольшого кусочка. Вот если бы как-то на этот кусочек среагировать типа FindWindowbyWindowName('*Part*'), но как?

[Хакер]

А что, InnoSetup так не умеет сам?

[Pantalone]

Сам не умеет. Отказаться от него не могу, все остальное довольно удобно.

[tyomitch]

Что ли речь о ThunderRT6FormDC

[Pantalone]

Что ли речь о ThunderRT6FormDC

О, дорогой! Спасибо, очень выручил

[Antonariy]

Тогда уж заодно нужно удостовериться, что найденный ThunderRT6FormDC — твоей программы.

[Хакер]

Что ли речь о ThunderRT6FormDC

О, дорогой! Спасибо, очень выручил

А самому? Слабо было SpyPlusPlus-ом?

[Pantalone]

Тогда уж заодно нужно удостовериться, что найденный ThunderRT6FormDC — твоей программы.

Это обязательно. Плюс так еще какой-то ThunderRT6Main маячит, надо определиться кого ловить

А самому? Слабо было SpyPlusPlus-ом?

Ну не все же хакеры

[tyomitch]

Тогда уж заодно нужно удостовериться, что найденный ThunderRT6FormDC — твоей программы.

Это обязательно. Плюс так еще какой-то ThunderRT6Main маячит, надо определиться кого ловить

Это, емнип, общий невидимый родитель всех форм приложения.

[Pantalone]

А в InnoSetup кто-нить разбирается?
Что-то не ловит он у меня мышей, пробую так заловить программулину:

Код: Выделить всё

if (FindWindowbyWindowName('MyApp')>0) and (FindWindowbyWindowName('MyApp')=FindWindowByClassName('ThunderRT6FormDC')) then

Не срабатывает условие, странно.
А так работает:

Код: Выделить всё

if (FindWindowbyWindowName('MyApp')>0)

Но таким макаром оно работает и на окна проводника открытые в папке MyApp. Засада какая-то блин.

[Денис]

Что-то не ловит он у меня

Просто не надо лепить все в одну кучу

Код: Выделить всё

A1 = FindWindowbyWindowName('MyApp')
A2 = FindWindowByClassName('ThunderRT6FormDC')
debug.print A1, A2
if (A1>0) and (A1=A2) then ...

[Sebas]

а не проще регистрировать свой класс окна и его находить?
а вообще, бред какойто. Чем то Вы не тем занимаетесь.


Маргиналы!(с)

[tyomitch]

Что-то не ловит он у меня

Просто не надо лепить все в одну кучу

Код: Выделить всё

A1 = FindWindowbyWindowName('MyApp')

Найдёт окно Эксплорера с нужным заголовком.

Код: Выделить всё

A2 = FindWindowByClassName('ThunderRT6FormDC')

Найдёт окно левой VB-проги.

Код: Выделить всё

debug.print A1, A2
if (A1>0) and (A1=A2) then ...

Не выполнится.


Я ж не помню, какая в Инно функция для поиска по заголовку и классу одновременно.

[Pantalone]

Я ж не помню, какая в Инно функция для поиска по заголовку и классу одновременно.

Точно есть такая?

[Денис]

Точно есть такая?

Если innosetup просто работает с API то вот эта:

Код: Выделить всё

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

вызывается предположительно так:

Код: Выделить всё

wnd = FindWindow "ThunderRT6FormDC", "MyApp"