VPF::Как найти hwnd окнa на другом Desktop?

parhom

Дата 27.12.2006, 10:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

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

Код


procedure RunAndWaitApplication(App:string);
var
   si:TStartUpInfo;
   p:TProcessInformation;
   Desk:HDESK;
   s:string;
begin
   s:='NewDeskX';
   FillChar(Si,SizeOf(Si),0);
   Desk:=CreateDesktop(PChar(s),nil,nil,DF_ALLOWOTHERACCOUNTHOOK,DESKTOP_CREATEWINDOW,nil);
   si.lpDesktop:=PChar(s);
   with Si do begin
      cb:=SizeOf(Si);
      dwFlags:=startf_UseShowWindow;
      wShowWindow:=sw_show;
   end;
   Createprocess(nil,pchar(App),nil,nil,false,
                           Create_default_error_mode,nil,nil,si,p);
   Waitforsingleobject(p.hProcess,{infinite}3000);
 h:=p.hProcess;
   CloseDesktop(Desk);
   //...
end;

Как мне найти HWND окон запущенной программы? IWS ничего не показывает, по названию окна не ищутся, хотя диспетчер задач показывает, что программа запущена.

Girder

Дата 27.12.2006, 11:23 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

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

Репутация: 25
Всего: 155

Начни с SetThreadDesktop

--------------------

Как слышим, так и пишим.
Истина где-то там...

parhom

Дата 27.12.2006, 11:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Girder, я пока очень неопытный в АПИ, можно подробнее?

Girder

Дата 27.12.2006, 15:38 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

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

Репутация: 25
Всего: 155

Предыстория: WaitForInputIdle(p.hProcess,5000); //5 сек - просто как пример

Далее...
Вариант 1(Найти то не знаю чего):
SetThreadDesktop(Desk);
EnumWindows(@f,0); //или манипуляции с GetWindow

- где f - твоя функция(собиратель урожая)

Вариант 2(Есть хоть что-то, ну например ID потока)
EnumThreadWindows(ID, @f, 0); //Как вариант можно пройтись и по всем потокам процесса

- где f - опять же твоя функция(собиратель урожая)
ID - в твоем случаи p.dwThreadId

--------------------

Как слышим, так и пишим.
Истина где-то там...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »