VPF::Приложения - Форум программистов

Роман

Дата 21.11.2005, 16:24 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Хотелось бы уточнить: получил ответ "делаеш EnumThreadWindows() ( ThreadId получиш из ProcessInformation ) и всем найденным окнам делай ShowWindow(, SW_RESTORE) ".
А по какому событию проделывать ShowWindow(, SW_RESTORE). Может я не туда его ставлю?

Dron84

Дата 22.11.2005, 01:03 (ссылка)

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

Загрузка ...

Шустрый

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

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

попробуй onActivate

Роман

Дата 22.11.2005, 11:42 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Всетаки я что то не так делаю. Давайте посмотрим:
1. Создаю процесс

Код




if not CreateProcess(nil, p1, nil, nil, true, CREATE_NEW_CONSOLE, nil, p2, startinfo,procinfo) then
begin
........
end;
hh:=Procinfo.hThread;
repeat
case WaitForSingleObject(Procinfo.hProcess, 100) of
WAIT_OBJECT_0: Break;
WAIT_TIMEOUT: Application.ProcessMessages;
else
RaiseLastOSError;
end;
until False;

CloseHandle( Procinfo.hProcess );
CloseHandle( Procinfo.hThread );

2. Создаю обработчик OnActivate

Код



function MyCallbackFunction(Wnd:HWnd; P: Pointer):Bool; stdcall;
begin
ShowWindow(Wnd, SW_RESTORE);
end;


procedure TMainForm.FormActivate(Sender: TObject);
begin
EnumThreadWindows(hh, @MyCallbackFunction, (0));
end;

3. Форма приложения все таки поверх остальных.

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