Рисование текста на рабочем столе

[artemavd]

Доброе утро! Как вывести текст на рабочем столе в том месте, где я указываю мышкой? Например, как это делается в Paint или Paint.NET, когда нужно вывести текст на картинку.

[DIgorevich]

Получаешь координаты курсора

var
   Pos: TPoint;
 begin
   GetCursorPos(Pos);

и рисуешь текст на канве рабочего стола:

GetWindowDC(GetDesktopWindow)

[artemavd]

Че т не понял. А что будет передаваться в Pos?

GetWindowDC(GetDesktopWindow)

И какие параметры передавать в эти функции?)

[DIgorevich]

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

Че т не понял. А что будет передаваться в Pos?
И какие параметры передавать в эти функции?)

В Pos будут передавать координаты курсора. Дальше их можно использовать так:

Твоя функция вывода текста (с координатами Pos.X, Pos.Y)

GetWindowDC(GetDesktopWindow) - это получение Handle рабочего стола.

[SERG1980]

var Canvas:TCanvas;
begin
 Canvas:=TCanvas.Create;
 Canvas.Handle:=GetDC(0);
 Canvas.Brush.Style:=bsClear;
 Canvas.TextOut(x,y,'Text');
 ReleaseDC(0,Canvas.Handle);
 Canvas.Free;
end;

[artemavd]

SERG1980, поместил твой код в кнопку, но нажимаю на нее и ничего не происходит. Может еще нужно что-то дописать?

[Stilet]

но нажимаю на нее и ничего не происходит.

Происходит
Просто ты этого не видишь. Присмотрись мвимательно, возьми Лупу )))
Шутка. Не видишь ты этого потому что рабстол накрыт компонентом ListView, код Сержа рисует под ним, а тебе для того чтоб лицезреть свое творчество нужно рисовать не на рабстоле а на его ListView:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, QuickRpt, QRCtrls, ExtCtrls, DB, DBTables, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var c:TCanvas;
  Form1: TForm1;

implementation

{$R *.dfm}
 function GetDesktopListViewHandle: THandle;

var

S: String;
begin

Result := FindWindow('ProgMan', nil);
Result := GetWindow(Result, GW_CHILD);
Result := GetWindow(Result, GW_CHILD);
SetLength(S, 40);
GetClassName(Result, PChar(S), 39);
if PChar(S) <> 'SysListView32' then Result := 0;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
 c:=TCanvas.Create;
 c.Handle:=GetDC(GetDesktopListViewHandle);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  c.TextOut(10,10,'adasdasdas');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 c:=nil;
end;

end.

Ферштеен?

[artemavd]

Иа вольт . Только есть несколько вопросов и уточнений.
1. Вместо "ProgMan" нужно указывать имя своей программы?
2. Что значит эта строчка:

if PChar(S) <> 'SysListView32' then Result := 0;

?
3. Как сделать, чтобы фон текста был прозрачный? Необязательно конечно, но так, на всякий случай.
4. То, что текст затирается при наведении на него мыши это нормально?

[Stilet]

1. Вместо "ProgMan" нужно указывать имя своей программы?

Ни в коем. Progman - это и есть рабстол по Виндовсовски.

Что значит эта строчка:

Эта строчка значит Если найденное дочернее окно имеет класс SysListView32 (Название класса ЛистВью рабстола в ХРюше) то все ок, иначе вернуть 0 - ошибочный хендл.

Как сделать, чтобы фон текста был прозрачный?

Легко и даже изяшно

 Canvas.Brush.Style:=bsClear;

То, что текст затирается при наведении на него мыши это нормально?

Абсолютно, рабстол то тоже как и все окна перерисовыввается своими процедурами а не твоей, иначе перехватывай оконную процедуру его на свою.

[Mifig]

всровно фон белый даже если использовать Canvas.Brush.Style:=bsClear;