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

Вниз

Как вывести сообщение поверх всех окон   Найти похожие ветки 

 
konstantinov ©   (2004-05-04 09:48) [0]

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

procedure ShowMSG ( const MSG : string );
 var Form     : TForm;
     I,J      : integer;
     Tick     : DWORD;
     h,m,s,ms : word;
begin
 DecodeTime(PauseExit,h,m,s,ms);
 Tick := ms + s * 1000 + m * 60000 + h * 36000000;
 for I := 0 to Tick div 1000 do
 begin
   Form := CreateMessageDialog(MSG + #13 + FormatDateTime("Компьютер будет выключен через hh:nn:ss",Time - TimeExit),mtWarning,[]);
   Form.FormStyle := fsStayOnTop;
   Form.BorderIcons := [];
   ShowWindow(Form.Handle,SW_SHOWNOACTIVATE );
   for J := 0 to 9 do
   begin
     Sleep(100);
     Application.ProcessMessages;
   end;
   Form.Free;
 end;
end;


Посоветуйте, как это обойти.
Заранее благодарен.


 
Yanis ©   (2004-05-04 10:46) [1]

Как вариант, можно просто сказать окну WM_CLOSE.
Или же что бы не потерять, например сохранёнки в игре можно её свернуть.

Может мой метод не красивый, но.... работает. И очень хорошо :)

На форме Timer, с интервалом 1.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 with form1 do
   begin
     FormStyle := fsStayOnTop;
     show;
   end;
end;


 
Yanis ©   (2004-05-04 10:46) [2]

Как вариант, можно просто сказать окну WM_CLOSE.
Или же что бы не потерять, например сохранёнки в игре можно её свернуть.

Может мой метод не красивый, но.... работает. И очень хорошо :)

На форме Timer, с интервалом 1.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 with form1 do
   begin
     FormStyle := fsStayOnTop;
     show;
   end;
end;


 
DVM ©   (2004-05-04 12:30) [3]


> konstantinov ©   (04.05.04 09:48)  

Не надо так делать. Если окно игры потеряет фокус, то начнутся страшные глюки во многих играх. Попробуй по таймеру рисовать свое сообщение на GetDC(0);



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

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

Наверх




Память: 0.45 MB
Время: 0.038 c
1-1083078463
.Lex
2004-04-27 19:07
2004.05.16
Как отловить Error в программе?


3-1081970454
3APA3A
2004-04-14 23:20
2004.05.16
База не меняет размер...


14-1082999392
Def_E
2004-04-26 21:09
2004.05.16
Кодировка текста


1-1083227941
npr2
2004-04-29 12:39
2004.05.16
Install shield


14-1083030908
Думкин
2004-04-27 05:55
2004.05.16
С днем рождения! 27 апреля.





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский