برنامه ای که رنگ Desktop را زرد می کند

[Delphi Skyline]

چیزهایی که احتیاج دارید : یک button و یک image

این هم کدش :



unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls,xpman;

type
TForm1 = class(TForm)
Image1: TImage;
Button3: TButton;
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
var desk1,desk:tcanvas;i,q,w,v:integer;
begin
desk:=tcanvas.Create;
desk.Handle:=getwindowdc(0);
desk1:=tcanvas.Create;
desk1.Handle:=getwindowdc(0);
//desk.TextOut(random(800),random(800),'Hello');
for i := 1 to 800 do
begin
for v:=1 to 800 do
begin
image1.Canvas.Pixels[v,i]:=desk.Pixels[v,i];
end;
//sleep(50);
end;


for q := 1 to 800 do
begin
for w:=1 to 800 do
begin
desk1.Pixels[w,q]:=image1.Canvas.Pixels[w,q] div 256;
end;
sleep(10);
end;

end;

end.