Вывести текст на эран без фона

Ребят помогите хочу вывести текст на экран без фона. Делаю вот так но всёровно с фоном получаеться:

var c: TCanvas;
begin
c := TCanvas.Create;
c.Handle := GetDC(GetWindow(GetDesktopWindow, GW_OWNER));
c.TextOut(400,400,'hello');
c.Free

Изврат, но можно попикселям попробовать....

не, такой мазохизм отпадает точно

Через WinAPI выводится совершенно точно. Увы, на компьютере, с которого сейчас пишу, нет архива наработок. Может, напишу несколько позже.

увы через winapi те же грабли

Ребят вот добился я такого результата, но только мой вариант работает под хп а на семёрке(ОС) не пашет выводит с фоном

var
c:TCanvas;
begin
c:=TCanvas.Create;
try
   c.Handle:=GetDC(0);// Получим Handle Рабочего стола
   c.Brush.Style:=bsClear; // Устанавливаем тип кисти
   With c.Font do // Подбираем параметры шрифта
             Begin
              Color:=clRed;
              Size:=15;
              Name:='Times New Roman';
              Style:=[fsBold];
             end;
  с.TextOut(70,10,'Hello'); //Выводи на экран
  ReleaseDC(0, c.handle); //Освобождаем канву
finally
   c.Free; // Уберем за собой
end;

var
  Cnv: TCanvas;
  Rct: TRect;
  Txt: string;
  X, Y: Integer;
begin
  Cnv:=TCanvas.Create;
  X := 100;
  Y := 100;
  Txt := 'Hello WORLD';
  try
    Cnv.Handle:=GetDC(0);// Получим Handle Рабочего стола
    Cnv.Brush.Style:=bsClear; // Устанавливаем тип кисти
    With Cnv.Font do // Подбираем параметры шрифта
    Begin
      Color := clRed;
      Size := 15;
      Name := 'Times New Roman';
      Style := [fsBold];
    end;
    Rct.Left := X - 1;
    Rct.Top := Y - 1;
    Rct.Right := Rct.Left + Cnv.TextWidth(Txt) + 2;
    Rct.Bottom := Rct.Top + Cnv.TextHeight(Txt) + 2;
    Cnv.FillRect(Rct);
    Cnv.TextOut(X, Y, Txt); //Выводи на экран
    ReleaseDC(0, Cnv.handle); //Освобождаем канву
  finally
    Cnv.Free; // Уберем за собой
  end;

а так??

Сообщение отредактировано: VahaC - 12.01.11, 16:32

оказалось мой код рабочий)) это у меня какой то конфликт идёт, а на чистой 7ке всё норм)