إخواني هذا الكود البسيط يتيح لكم التعامل مع سطح المكتب
procedure TForm1.Button1Click(Sender: TObject);
var
DTop: TCanvas;
begin
//Use TCanvas component to play with desktop
DTop:=TCanvas.Create;
DTop.Handle:=GetDC(Hwnd_Desktop);
// My Screen resolution is 1152 by 864 pixels
DTop.TextOut(576,432,'Welcome to Delphi Forum');
end;
شكرا لكم