Скачать: CL | DM;

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

← →
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]

Благодарю :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c