Вывод текста который всегда первый по z оси

[Crystallon]

Как средствами Delphi вывести текст как в нижней части этого скрина(отображение громкости)? Он выводится поверх абсолютно всех окон что крайне удобно в некоторых случаях.
Заранее спасибо за любую информацию по этому делу(очень помогло бы даже слово используя которое я смогу погуглить по этой теме т.к. сейчас я даже не знаю что искать).

[JUDAS]

procedure TForm1.Button1Click(Sender: TObject);
var WND : HWND;
    DC  : HDC;
begin
  WND:= FindWindow(nil, '0.jpeg - Программа просмотра изображений и факсов');
  if Wnd<>0 then
  begin
    DC:= GetDC(Wnd);
    windows.TextOut(DC, 100, 100, PCHar(Edit1.Text), LenGth(Edit1.Text));
    ReleaseDC(Wnd, DC);
  end;
end;

Результат

[Crystallon]

Что-то не фурычит =\ как только не извращался над этой textout...

procedure TForm1.Button2Click(Sender: TObject);
var
WND:HWND;
DC:HDC;
res_text:LongBool;
res_text2:string;
begin
  WND:= FindWindow(nil, '1.jpg - Средство просмотра фотографий Windows');
  if Wnd<>0 then
  begin
    GP_str_log:=GP_str_log+'Окно найдено...'+#13#10;
    DC:= GetDC(Wnd);
    res_text:=windows.TextOut(DC, 200, 200, PCHar(Edit3.Text), LenGth(Edit3.Text));
    if res_text <> false then res_text2:='Успешно' else res_text2:='Не успешно';
    GP_str_log:=GP_str_log+'Результат: '+res_text2+#13#10;
    ReleaseDC(Wnd, DC);
  end;
end;

В лог выводится:

Окно найдено...
Успешно

Т.е. вроде как все зашибись, текст должен появится но увы его нет =\

P.S. А этот текст можно как-то запилить без фона(т.е. с прозрачным фоном)?

[SNUPY]

Эмм... что то подсказывает, что через DirectX надо делать... ибо в линейке изображение дерикцивое...

[Crystallon]

Похоже что так и есть...

procedure TForm1.Button1Click(Sender: TObject);
var
ScreenDC:HDC;
rct:TRect;
begin
ScreenDC:= GetDC(0);
SetTextColor(ScreenDC,RGB(0,255,0));
SelectObject(ScreenDC, createfont(30,30, 0, 0, FW_SEMIBOLD, 0, 0, 0, DEFAULT_CHARSET, 0, 0, 1, 0, 'Arial'));
rct.Left:=500;
rct.Top:=500;
SetBkMode(ScreenDC, Transparent);
DrawText(ScreenDC, 'Hellow, world!', LenGth('Hellow, world!'), rct, DT_WORDBREAK);
end;

Эта процедура выводит текст в дексриптор экрана(т.е. как я и хотел поверх всех окон), вот только если его задевает какое-то окно он стирается, как следствие в л2 содержимое окна меняется постоянно и текст стирается только успев появится...
С директрисой работать не умею совершенно =\