узнать активно ли (foreground) приложение

[Obert]

Здравствуйте, мне понадобилась функция, которая определяет активно ли (находится в foreground) определённое приложение (в данном случае "Second Life").
Я написал:

function if_SL_foreground:boolean;
const
  MaxCaptionSize: integer = 88;
var
  MonolitHandle: HWND;
  MonolitCaption: String;
begin
  Application.ProcessMessages;

  SetLength(MonolitCaption, MaxCaptionSize);
  MonolitHandle := GetForegroundWindow();
  GetWindowText(MonolitHandle, PChar(MonolitCaption), MaxCaptionSize);

  if MonolitCaption='Second Life' then Result:=True else Result:=False;
end;

Проблема: MonolitCaption берёт из активного окна именно "Second Life", но при сравнении со строкой 'Second Life' результат оказывается отрицательным. Может проблема в том, что Delphi переведён в Юникод? У меня Delphi 2010.

Решить проблему удалось заменив

if MonolitCaption='Second Life' then Result:=True else Result:=False;

на

Form1.Edit1.Text:=MonolitCaption;
if Form1.Edit1.Text='Second Life' then Result:=True else Result:=False;

введя невидимую TEdit. Но это же очень некрасиво! Можно ли как-то конвертировать MonolitCaption более приличным способом?

[vovk]

текстовая переменная?

var
str:String;
...
...
str:=MonolitCaption;

[Пепел Феникса]

'Second Life' это заголовок формы?

можно решить вопрос по определению PID процесса с активным окном и уже сравнивать его.
ведь я думаю у вас не только форма есть.

можно и так поступить:

function if_SL_foreground:boolean;
const
MaxCaptionSize: integer = 88;
var
MonolitHandle: HWND;
MonolitCaption: String;
begin
Application.ProcessMessages;
SetLength(MonolitCaption, MaxCaptionSize);
MonolitHandle := GetForegroundWindow();
SetLength(MonolitCaption,GetWindowT ext(MonolitHandle,PChar(MonolitCapt ion),MaxCaptionSize));
if MonolitCaption='Second Life' then Result:=True else Result:=False;
end;

[Obert]

vovk, да нет, текстовая переменная ничего не меняет, я попробовал.

А вот способ, предложенный Пепел Феникса работает!

Большое спасибо, вопрос решён.