تغيير خلفية سطح المكتب

لماذا هل تقوم بصناعة دودة trojan

وليكن

uses
 ComObj,ShlObj;

procedure TForm1.Button1Click(Sender: TObject);
var
 ActiveDesktop: IActiveDesktop;
 Color : TColor;
 Element : DWord;
begin
Color := clBlack;
Element := COLOR_BACKGROUND;
 ActiveDesktop := CreateComObject(CLSID_ActiveDesktop)
   as IActiveDesktop;
 ActiveDesktop.SetWallpaper('', 0);
 ActiveDesktop.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);

 SetSysColors(1,Element,Color);
end;

على فكره الكود هذا لمسح الخلفيه :)

i hope that will help you

و ليكن

لم لم تقل برنامج مستعرض صور يضع الصورة في الخلفية، لكن طبع الاذى فينا

الكود جديد علي شكرا عليه

عوافي يا دلفي يا معلم الكود رائع.... مشكور

الله يعطيك الف عافية فعلا الكود رائع

العفو

:)