Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];

Вниз

Ребята!   Найти похожие ветки 

 
Елена   (2001-09-29 12:23) [0]

Блин, во запарки на работе!!!
Мне поручили проектик, всё готово, кроме одного. Как программно свернуть любое приложение, будь это игра или MSOffice или ещё что.


 
ASTARD   (2001-09-29 17:55) [1]

SendMessage, PostMessage.


 
Василий   (2001-09-29 21:09) [2]

// сворачивает всё кроме себя
procedure closewin(Handle: hWnd);
var Wnd,NWnd: THandle;
buff: array [0..127] of Char;
begin
Wnd := GetWindow(Handle, gw_HWndFirst);
while Wnd <> 0 do
begin
if (Wnd <> Application.Handle) and
IsWindowVisible(Wnd) and
(wnd<>Application.MainForm.Handle)and
(GetWindowText(Wnd, buff, sizeof(buff)) <> 0) then
begin
Nwnd:=wnd;
CloseWindow(Nwnd);
end;
Wnd := GetWindow(Wnd, gw_hWndNext);
end;
end;

PS--
Девчата! почему не хотите свой mail оставлять ? ;)
И если не секрет нафига это нужно все окна сворачивать ?


 
Елена   (2001-09-29 22:29) [3]

Окна надо сворачивать для того, чтоб программа выдавала сообщение типа "Please, enter registration number" :) Вот такая вот прога!

А мыло своё не даю, да и зачем? Переписываться? Итак хватает.

О Г Р О М Н О Е С П А С И Б О ТЕМ КТО ОТВЕТИЛ!!!


 
Елена   (2001-09-29 23:08) [4]

:))) Сорри !
Я не очень поняла какое значение нужно задавать этой процедуре closewin(???)


 
ASTARD   (2001-09-30 00:35) [5]

Еще есть вариант EnumW....... смотри справку ..... возвращает хендлы окон .. потом просто используй SendMessage PostMessage!


 
ReNoiZer   (2001-10-02 12:53) [6]

>Елена
А зачем сворачивать, чтобы показать сообщение, можно итак показать же.



Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.015 c
1-52621
programmer1
2001-12-28 22:51
2002.01.17
Динамическая плдгрузка dll-библиотеки


3-52468
SAlex
2001-12-14 08:07
2002.01.17
Фильтрация данных таблицы по данным из двух других таблиц


6-52627
KLM
2001-09-28 10:11
2002.01.17
Кодировка почты


4-52681
Anderius
2001-11-17 21:24
2002.01.17
Как насильно завершить другую программу?


1-52615
Socol
2001-12-29 06:12
2002.01.17
Прерход на новую строку.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский