Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как получить Handle чужого консольного окна? как получить handle чужой консоли? 
V
    Опции темы
ЧеловекБорща
  Дата 1.10.2010, 20:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 94
Регистрация: 5.6.2010

Репутация: нет
Всего: нет
Доброе время суток! 

Суть заключается в том, чтобы найти окно запускаемой программы и изменить его заголовок на свой. 
Программы запускаю в TThread используя CreateProcess.
Для получения списка окон использую EnumThreadWindows.


Код

var
  PI:TProcessInformation;

implementation

function ChangeCaptionProc(hwnd: THandle; lParam: LPARAM): Boolean; stdcall;
var
  s:PAppInfo;
begin
  Result:=True;
  s:=pointer(lParam);
  if GetWindowLong(hwnd, GWL_STYLE) and WS_CAPTION = WS_CAPTION then
  begin
    SetWindowText(hwnd,PAnsiChar(s));
  end;
end;

{................}

if not (AppInfo.AppUserCaption = '') then
begin
  EnumThreadWindows(PI.dwThreadId,@ChangeCaptionProc,Integer(AppInfo.AppUserCaption)); //передаём новый заголовок как параметр в функцию.
end;


Проблема в том что это работает только с "оконными" программами. Почему не работает с консолями? Может нужен ещё какой-нибуть флаг в GetWindowLong?   smile 

Это сообщение отредактировал(а) ЧеловекБорща - 1.10.2010, 20:51
PM MAIL   Вверх
bems
Дата 1.10.2010, 20:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88
До семерки консольными окнами владеет csrss.exe


--------------------
Обижено школьников: 8
PM MAIL   Вверх
ЧеловекБорща
Дата 1.10.2010, 21:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 94
Регистрация: 5.6.2010

Репутация: нет
Всего: нет
Я ищу окно запускаемой мною программы а не окна других процессов.
PM MAIL   Вверх
bems
Дата 1.10.2010, 21:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88
Консольное окно особое.
Например что происходит, когда консольная программа запускает другую (тоже консольную), а сама закрывается? Дочерний процесс будет спокойно работать со старой консолью. Это было бы невозможно, если бы консольное окно принадлежало потоку, работающему в рамках родительского процесса.
По этой причине все консольные окна должны уметь жить дольше, чем поток. А значит их нельзя получить при перечислении окон потока

Это сообщение отредактировал(а) bems - 1.10.2010, 21:20


--------------------
Обижено школьников: 8
PM MAIL   Вверх
ЧеловекБорща
Дата 1.10.2010, 21:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 94
Регистрация: 5.6.2010

Репутация: нет
Всего: нет
эмм а как тогда быть? Как найти консольное окно и определить его принядлежность к процессу? 
PM MAIL   Вверх
bems
Дата 1.10.2010, 21:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88
ЧеловекБорща, Сделай еще перед запуском AllocConsole и GetConsoleWindow. А потом запускай процесс, и он унаследует твою консоль


--------------------
Обижено школьников: 8
PM MAIL   Вверх
ЧеловекБорща
Дата 1.10.2010, 22:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 94
Регистрация: 5.6.2010

Репутация: нет
Всего: нет
Спасибо за подсказку, но непонимаю как реализовать.. 
Можно привести пример пожалуйста?  smile 

Есть кусок кода:
Код

      with PI do
      begin
        SetProcessAffinityMask(hProcess, AppInfo.AppCPUAffinity);  //задаём маску проца из структуры
        WaitForSingleObject(hProcess, INFINITE);  //висим на "душой" программы
        CloseHandle(hProcess);
        CloseHandle(hThread);
      end;
        CreateProcess(
        PChar(AppInfo.AppExe),
        PChar(AppInfo.AppParamStr), nil, nil,
        False, GetPriority(AppInfo.AppPriority), nil,
        PChar(ExtractFileDir(AppInfo.AppExe)), SI, PI);       //создаём процесс

        WaitForInputIdle(PI.hProcess, 10000);      //     ждём создания всех окошек


        if not (AppInfo.AppUserCaption = '') then
        begin
          EnumThreadWindows(PI.dwThreadId,@ChangeCaptionProc,Integer(AppInfo.AppUserCaption)); //передаём параметр функции
        end;

        if AppInfo.AppStartMinimized then      //Минимизируем окошко.. если стоит галочка
        begin
        EnumThreadWindows(PI.dwThreadId,@MiniWindowProc, 0); //манипулируем с окном...
        end;




Это сообщение отредактировал(а) ЧеловекБорща - 1.10.2010, 22:18
PM MAIL   Вверх
bems
Дата 2.10.2010, 07:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88
Код

var ConWnd: HWND;
begin
  ConWnd := GetConsoleWindow;
  AllocConsole;
  CreateProcess(...
  манипулируемCокном(ConWnd)


Добавлено через 14 минут и 46 секунд
Или, если не желательно чтобы все процессы разделяли общею консоль, то:
CreateProcess
AttachConsole
GetConsoleWindow
FreeConsole

Это сообщение отредактировал(а) bems - 2.10.2010, 07:12


--------------------
Обижено школьников: 8
PM MAIL   Вверх
ЧеловекБорща
Дата 2.10.2010, 18:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 94
Регистрация: 5.6.2010

Репутация: нет
Всего: нет
Что-то я недопонимаю.. 
Код

Function GetConsoleWindow: HWND; stdcall; external 'Kernel32.dll';
function AttachConsole(dwProcessId: Cardinal): Boolean; external kernel32 name 'AttachConsole';

implementation

{$R *.dfm}


function EnumThreadWndProc(hwnd: THandle; lParam: LPARAM): Boolean; stdcall;
var
  len: Integer;
  classname: array [0..$ff] of Char;
begin
  Result:=True;
  // если окно видимое, то
  if IsWindowVisible(hwnd) then
  begin
    if MainForm.MiniChk.Checked then
    begin
    ShowWindow(hwnd, SW_SHOWMINIMIZED);
    end;

    if MainForm.EditCaptionChk.Checked then
    begin
      SetWindowText(hwnd, PAnsiChar(MainForm.myCaptionEdit.Text));
    end;
  end;
end;

procedure TMainForm.RunCalcBtnClick(Sender: TObject);
var
  startupinfoa: _STARTUPINFOA;
  processinformation: _PROCESS_INFORMATION;
  ConWnd:HWND;
begin
  ZeroMemory(@startupinfoa, SizeOf(_STARTUPINFOA));
  startupinfoa.cb:=SizeOf(_STARTUPINFOA);
  startupinfoa.wShowWindow:=SW_SHOWNORMAL;
  CreateProcess(nil, PChar('console.exe'), nil, nil, False, 0, nil, nil, startupinfoa, processinformation);
  AttachConsole(processinformation.hProcess);
  ConWnd := GetConsoleWindow;
  // найдем все окна нашего процесса
  //EnumThreadWindows(processinformation.dwThreadId, @EnumThreadWndProc, 0);
  SetWindowText(ConWnd, PAnsiChar(MainForm.myCaptionEdit.Text));
end;


суть заключается в том чтобы изменить заголовок окна консоли которую запускаю.
что я делаю не так? 
PM MAIL   Вверх
bems
Дата 2.10.2010, 19:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88
Код

procedure TForm1.Button1Click(Sender: TObject);
const
  SleepTime = 200;
var
  si: TStartupInfo;
  pi: TProcessInformation;
  ConWnd:HWND;
  Code, Err: DWORD;
  s: String;
begin
  FillChar(si, SizeOf(si), 0);
  si.cb:=SizeOf(si);
  s := 'c:\windows\system32\cmd.exe';
  if CreateProcess(nil, @s[1], nil, nil, False, 0, nil, nil, si, pi)
     then try
            repeat
              Sleep(SleepTime);
              SetLastError(0);
              AttachConsole(pi.dwProcessId);
              Err := GetLastError;
            until (Err <> ERROR_GEN_FAILURE) or
                  not GetExitCodeProcess(pi.hProcess, Code) or
                  (Code <> STILL_ACTIVE);

            if Err = 0
               then begin
                    ConWnd := GetConsoleWindow;
                    FreeConsole                
                    SetWindowText(ConWnd, PChar(myCaptionEdit.Text));
                    end
               else RaiseLastOSError(Err);

          finally
            CloseHandle(pi.hProcess);
            CloseHandle(pi.hThread);
          end
     else RaiseLastOsError;
end;

Вот, как-то так. Время в Sleep выбирай под свою задачу (можно и убрать, но тогда будешь вхолостую жечь такты в ожидании, пока процесс создаст консоль, и мозможно поменяешь заголовок еще до того как cmd установит свой)


--------------------
Обижено школьников: 8
PM MAIL   Вверх
ЧеловекБорща
Дата 2.10.2010, 22:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 94
Регистрация: 5.6.2010

Репутация: нет
Всего: нет
странно неработает.. 
Код

procedure TMainForm.RunCalcBtnClick(Sender: TObject);
const
  SleepTime = 200;
var
  si: TStartupInfo;
  pi: TProcessInformation;
  ConWnd:HWND;
  Code, Err: DWORD;
  s: String;
begin
  FillChar(si, SizeOf(si), 0);
  si.cb:=SizeOf(si);
  s := 'calc.exe';
  if CreateProcess(nil, @s[1], nil, nil, False, 0, nil, nil, si, pi)
     then try
            repeat
              Sleep(SleepTime);
              SetLastError(0);
              AttachConsole(pi.dwProcessId);
              Err := GetLastError;
            until (Err <> ERROR_GEN_FAILURE) or
                  not GetExitCodeProcess(pi.hProcess, Code) or
                  (Code <> STILL_ACTIVE);

            if Err = 0
               then begin
                    ConWnd := GetConsoleWindow;
                    FreeConsole;
                    SetWindowText(ConWnd, PChar(myCaptionEdit.Text));
                    end
               else ShowMessage('ERROR 1'); //<<<<<< - кричить вот здесь, заголовок не изменяет...

          finally
            CloseHandle(pi.hProcess);
            CloseHandle(pi.hThread);
          end
     else ShowMessage('Process Not Created');
end;


Комментарием отмечено. Почему-то неработает.. 
PM MAIL   Вверх
bems
Дата 2.10.2010, 23:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88
У меня работало. Err чему равно?

Добавлено через 3 минуты и 42 секунды
откуда у calc.exe консоль?


--------------------
Обижено школьников: 8
PM MAIL   Вверх
ЧеловекБорща
Дата 3.10.2010, 12:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 94
Регистрация: 5.6.2010

Репутация: нет
Всего: нет
Err равно 31. 

Calc.exe  это не калькулятор, это консолька которую я положил в папку программы. 
Код

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  Readln;
end.
PM MAIL   Вверх
bems
Дата 3.10.2010, 13:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88
Сделай в теле цикла Code := 0 и скажи чему он равняется после выхода из цикла


--------------------
Обижено школьников: 8
PM MAIL   Вверх
bems
Дата 3.10.2010, 13:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88
впрочем лучше присвой $FFFFFFFF


--------------------
Обижено школьников: 8
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1012 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.