Цитата:
|
Сообщение от NumLock
до этого у тебя message loop вообще небыло что-ли? не рано ли на non-VCL перешел тогда?
вот классика:
Код:
var
AMsg: TMsg;
while GetMessage(AMsg, 0, 0, 0) do
begin
TranslateMessage(AMsg);
DispatchMessage(AMsg);
end;
и как все-таки программу закрывать будешь? |
в
Код:
TranslateMessage(AMsg);
DispatchMessage(AMsg);
нет пока смысла, так как нет пока окон)
месадж луп не было, так как без окон нет и сообщений, над завершением программы пока не думал, но придумаю. горячие клавиши например, или хук определенной клавиши "Esc" например, тут ничего сложного не будет в принципе, сейчас с авирой праблы, но попытаюсь поменять функционал основного потока и хукного, может не будет тогда ворчать)
а GetMessage в данном случае, как удачная альтернатива слипу, которая и из потока выйти не даст и работать потоку не мешает)