VBNet - Форум - Узнать заголовок акивного окна и исполняемый файл

Вопрос: Узнать заголовок акивного окна и исполняемый файл Добавлено: 21.12.08 14:42

Автор вопроса: Александр | ICQ: 414713812

Народ)) прмогите) что-то сижу мучаю.. нифига не получается. Вот допустим просто в текстовое поле занести имя исполняемого файла активного окна и заголовок его.
Ответить

Ответы Всего ответов: 7

Номер ответа: 1 Автор ответа: Александр ICQ: 414713812 Вопросов: 16 Ответов: 49	Профиль \| \| #1	Добавлено: 21.12.08 15:47
	забыл сказать, что на VB 6.0 надо сделать) Ответить

Номер ответа: 2 Автор ответа: Ra$cal ICQ: 8068014 Вопросов: 18 Ответов: 817	Web-сайт: www.rascalspb.narod.ru Профиль \| \| #2	Добавлено: 21.12.08 16:59
	загловок окна активного - GetForegroundWindow путь к ехе CString CWindowsUtils::GetExePath( POINT pt ) const { HWND hwnd; hwnd = WindowFromPoint(pt); return GetExePath(hwnd); } CString CWindowsUtils::GetExePath( HWND wnd ) const { DWORD pid, tid; tid = GetWindowThreadProcessId(wnd, &pid); HANDLE snapshot; snapshot = CreateToolhelp32Snapshot(TH32CS_SNAPMODULE, pid); if(snapshot == INVALID_HANDLE_VALUE) return ""; MODULEENTRY32 process_module = {0}; process_module.dwSize = sizeof(process_module); if(!Module32First(snapshot, &process_module)){ CloseHandle(snapshot); MessageBox(0, "Module32First error!", "Error", 0); return ""; } CloseHandle(snapshot); return process_module.szModule; } Тут все апи используются, надеюсь осилишь мсдн открыть и прочитать про эти функции, чтоб в вб перетянуть. Ответить

Номер ответа: 3 Автор ответа: Ra$cal ICQ: 8068014 Вопросов: 18 Ответов: 817	Web-сайт: www.rascalspb.narod.ru Профиль \| \| #3	Добавлено: 21.12.08 17:02
	заголовок точнее получить надо с помощью GetWindowText(GetForegroundWindow()...). Там важный момент что надо выделить память под строку перед вызовом. Ответить

Номер ответа: 4 Автор ответа: Александр ICQ: 414713812 Вопросов: 16 Ответов: 49	Профиль \| \| #4	Добавлено: 22.12.08 12:52
	да мне на Vb 6.0 надо а не на vb.net)) а насчёт GetWindowText(GetForegroundWindow()...) можно чутка поподробнее? Ответить

Номер ответа: 5 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #5	Добавлено: 22.12.08 14:57
	А перевести на ВБ6 духу не хватит что ли? Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Declare Function GetForegroundWindow Lib "user32" () As Long Private Sub Blah() Dim windowName As String Dim windowNameLength As Integer windowName = Space(1024) windowNameLength = GetWindowText(GetForegroundWindow, windowName, 1024) windowName = Left$(windowName, windowNameLength) End Sub Ответить

Номер ответа: 6 Автор ответа: Ra$cal ICQ: 8068014 Вопросов: 18 Ответов: 817	Web-сайт: www.rascalspb.narod.ru Профиль \| \| #6	Добавлено: 22.12.08 20:01
	код получения пути к ехе не на вбнет, а на с++ но это не принципиально. все что там используется - апи. открываещь гугл, ищешь, как вызывать эти функции в вб, и повторяешь структуру программы. Ответить

Номер ответа: 7 Автор ответа: Александр ICQ: 414713812 Вопросов: 16 Ответов: 49	Профиль \| \| #7	Добавлено: 22.12.08 20:57
	Спасибо) буду разбираться) Ответить

Страница: 1 |