как узнать, что окно активное/не активное

[beegl]

привет, как узнать, что окно активное/не активное?

[raxp]

GetFocus()

[beegl]

Сообщение от raxp

GetFocus()

спасибо за ответ, реализовал такой код по горячей клавише:

  private
    { Private declarations }
    id1: Integer;
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
/////////////////////////////////////////////////////////////////////////////////
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
 begin
   if Msg.HotKey = id1 then
   begin
   if GetFocus <=0 then
   begin
   if MessageBox(GetActiveWindow,'Вы действительно хотите закрыть программу?','Intertelecom',MB_YESNO or MB_ICONWARNING) = IDYES then
   Halt(1)
   end else
   if GetFocus >=0 then
   begin
   Halt(1);
   end;
   end;
end;
/////////////////////////////////////////////////////////////////////////////////

procedure TForm1.FormCreate(Sender: TObject);
const
     vk_EscapeEx    = $1B;
begin
  DoubleBuffered := true;
  Caption := 'Intertelecom balans';
  id1 := GlobalAddAtom('Hotkey1');
  RegisterHotKey(Handle, id1, 0, vk_EscapeEx);
end;

подскажите пожалуйста, как в 7-й делфи юникод внедрить, или что надо сделать, чтоб русский текст при копировании в другой документ из юнита не был не понятным текстом?
например:

if MessageBox(GetActiveWindow,'Âû äåéñòâèòåëüíî õîòèòå çàêðûòü ïðîãðàììó?','Intertelecom',MB_YESNO or MB_ICONWARNING) = IDYES then

где - Âû äåéñòâèòåëüíî õîòèòå çàêðûòü ïðîãðàììó? - не понятный текст

[eoln]

Сообщение от beegl

как в 7-й делфи юникод внедрить, или что надо сделать, чтоб русский текст при копировании в другой документ из юнита не был не понятным текстом?
например:

if MessageBox(GetActiveWindow,'Âû äåéñòâèòåëüíî õîòèòå çàêðûòü ïðîãðàììó?','Intertelecom',MB_YESNO or MB_ICONWARNING) = IDYES then

где - Âû äåéñòâèòåëüíî õîòèòå çàêðûòü ïðîãðàììó? - не понятный текст

Это не юникод, чтобы нормально копировалось просто при копировании измени текущую раскладку толи на русский, толи на английский язык (уже не помню)

[Stilet]

толи на русский

На русский. Клипбоард подхватит правильную раскладку.

[beegl]

спасибо за ответы, ещё такой вопрос, подскажите, как вывести MessageBox на передний план
этот вариант не работает:

SetForegroundWindow(FindWindows(nil,'caption'));

это сообщение:

if MessageBox(GetActiveWindow,'Вы действительно хотите закрыть программу?','caption',MB_YESNO or MB_ICONWARNING) = IDYES then

например, программа в трее, и когда нажимаешь на горячую клавишу, MessageBox выводится позади всех активных окон, а надо на передний план, как это реализовать?

[Stilet]

MessageBox(GetForegroundWindow(),...

Я по крайней мере так делаю. В 99% случаев помогает.