Как вывести надпись на рабочий стол?

← →
Rentner (2008-02-15 17:21) [0]

Уважаемые мастера! Подскажите, пожалуйста, Как программно вывести любую строку на рабочий стол?

← →
Palladin © (2008-02-15 17:32) [1]

зачем?

← →
Rentner (2008-02-15 17:35) [2]

Например, дату и время, и чтобы она там все время была

← →
Palladin © (2008-02-15 17:44) [3]

type
TDesktopCanvas = class(TCanvas)
private
DC : hDC;
function GetWidth:Integer;
function GetHeight:Integer;
public
constructor Create;
destructor Destroy; override;
published
property Width: Integer read GetWidth;
property Height: Integer read GetHeight;
end;

function TDesktopCanvas.GetWidth:Integer;
begin
Result:=GetDeviceCaps(Handle,HORZRES);
end;

function TDesktopCanvas.GetHeight:Integer;
begin
Result:=GetDeviceCaps(Handle,VERTRES);
end;

constructor TDesktopCanvas.Create;
begin
inherited Create;
DC := GetDC(0);
Handle := DC;
end;

destructor TDesktopCanvas.Destroy;
begin
Handle := 0;
ReleaseDC(0, DC);
inherited Destroy;
end;

рисуй наздоровье...

← →
Rentner (2008-02-15 17:52) [4]

Благодарю :)

Как вывести надпись на рабочий стол? Найти похожие ветки