Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.27;
Скачать: CL | DM;

Вниз

Не пойму... Что не так в этом коде?   Найти похожие ветки 

 
Cosinus ©   (2005-01-17 18:52) [0]

program SCR_SV_ON;

uses WinTypes, WinProcs, Messages;
 
var
 MN_HNDL:HWND;
begin
 MHNDL:= GetCurrentProcess();
 SendMessage(MHNDL,WM_SYSCOMMAND,SC_SCREENSAVE,1);
end.


Вместо простого перехода к ScreenSaver-у экран начинает бешенно моргать, такое ощущение, что он почти входит в него и тут же, поймав еще раз это сообщение, начинает все заново. Через разное кол-во времени (от 5-ти сек до минуты) входит моргание прекращается - он в скринсайвере...
Если я подключаю forms и вместо GetCurrentProcess(); использую Application.Handle, то все нормально.


 
Anton_K ©   (2005-01-17 18:55) [1]

В SendMessage надо handle окна, а не процесса передавать.


 
MBo ©   (2005-01-17 18:57) [2]

в этом коде не так... ладно, про то, то между рулем и креслом водителя, пропущу...
SendMessage посылается ОКНУ, а не дескриптору процесса


 
Cosinus ©   (2005-01-17 19:03) [3]

У-у-упс... Понял.
А как в таком случае получить Handle приложения?


 
Kerk ©   (2005-01-17 19:04) [4]

Cosinus ©   (17.01.05 19:03) [3]
А как в таком случае получить Handle приложения?

чивоооо!??!?!?


 
Cosinus ©   (2005-01-17 19:05) [5]

Не то...
Какую команду использовать. Простите.


 
Kerk ©   (2005-01-17 19:19) [6]

Cosinus ©   (17.01.05 19:05) [5]
Application.Handle ты правильно использовал. Только это не хендл приложения, а хендл окна, которое внутри класса TApplication сидит.


 
Kerk ©   (2005-01-17 19:20) [7]

Прежде чем получить хендл окно, надо это окно создать. Или создаешь его руками, или используешь TApplication.


 
Cosinus ©   (2005-01-17 19:35) [8]


> Kerk ©  
Мдя-я-я...
Но используя TApplication, я начинаю использовать QForms, чего не хочется. То есть видимо придется создать окно ручками, а потом посылать сообщение.
Правильно ли я понимаю, что в итоге должно получиться что то вроде =>

NEW_WIN:=CreateWindow(...);
if NEW_WIN<>nil then
 begin
   SendMessage(NEW_WIN,...);
   DestroyWindow(NEW_WIN,...);
 end;

???


 
Kerk ©   (2005-01-17 20:06) [9]


> QForms

хм.. может стоит Forms?

да. ты правильно понимаешь.


 
Sumor   (2005-01-18 00:31) [10]

Не надо окон дополнительно создавать.
Возьми GetActiveWindow или по FindWindow найди себе что-нибудь и ему пошли это сообщение.



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

Текущий архив: 2005.02.27;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.039 c
11-1082736768
nester
2004-04-23 20:12
2005.02.27
Как определить "удачность" выполнения NewWriteFileStream


3-1107172647
a3a3ello
2005-01-31 14:57
2005.02.27
Глючит TDBgrid


14-1108013118
Asker
2005-02-10 08:25
2005.02.27
MailWare, ShareWare и т.п.


1-1108189218
Алексей
2005-02-12 09:20
2005.02.27
ShareMem


14-1107745511
Думкин
2005-02-07 06:05
2005.02.27
С Днем рождения! 6 февраля