Главная страница
    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.02 c
6-52628
Labert
2001-10-22 16:13
2002.01.17
Нужно узнать логин в Windows


14-52662
Dima-k17
2001-11-23 09:56
2002.01.17
(1)Windows XP + (2)Delphi 5


4-52680
Art
2001-11-16 15:13
2002.01.17
А как добавить свой пункт в меню свойства файла или отправить???


6-52633
maxi
2001-10-23 11:45
2002.01.17
Как передать серверу интерфейс клиента


4-52679
Undert
2001-11-15 19:02
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский