سطح المكتب

أخي سالك هناك كمبننت يقوم بعمل ماتوريدة اأظن ان اسمه desktopcontrol

وسابحث عنه إن شاء الله

procedure TForm1.Button1Click(Sender: TObject);

var

h:hwnd;

begin

h := FindWindow(nil, 'Program Manager');

ShowWindow(h, SW_HIDE);

end;

إن كنت تقصد إخفاء سطح المكتب بالفورم

form1.BorderStyle:=bsnone;

form1.Left:=0;

form1.Top:=0;

form1.Height:=screen.Height;

form1.Width:=screen.Width;

Form1.FormStyle :=fsStayOnTop ;

أما إن كنت تقصد عدم تفعيل ايقونات سطح المكتب ففي الملف المرفق مثال على ذلك

desktop_icon.zip

جزاكم الله خير على ما قدمتم من الردود

وقصدي هو عمل برنامج يقوم بإخفاء برامج واي شي على سطح المكتب حتى لو كانت عندها خاصية "في المقدمه دائما" مثل الماسنجر وبعض برامج الإنترنت التي تكون دائما على المقدمه فوق أية برامج هو معروف جعل برنامجي فوق التطبيقات لكن يكون في لحظه فوق التطبيق وبعد لحظه تكون أغلب البرامج فوقه فأود أن يكون برنامجي دائما فوق التطبيقات مع إخفاء جميع هذه التطبيقات

ولكم جزيل الشكر

يبدو أنك غيرت سؤالك أخ سالك وإليك الإجابة :

Form --> FormStyle --> StayOnTop وهي إحدى خصائص الـ Form;)

قصدي من السؤال برنامج فيه نافذه مثل شاشة التوقف تكون مغطيه على كل محتويات سطح المكتب من برامج مفتوحه ورموز ولكن ليس هو برنامج شاشة توقف .

الكود حق خاصيه "في المقدمه دوما " عندي ومجربه هو نفع بس بعض الاحيان في برامج مثل الياهو ماسنجر وغيرها عندما أيكون برنامجي في المقدمه بعد فتره تصبح هي في المقدمه فكيف أجعل برنامجي دائما وابدا في المقدمه

ولكم جزيل الشكر

اخي الكريم

اضف هذا الكود عند حدث OnCreat للنموذج

 procedure TForm1.FormCreate(Sender: TObject);

begin

  SetWindowPos(Self.Handle, HWND_TOPMOST, 0,0,0,0,

  SWP_NOACTIVATE+SWP_NOMOVE+SWP_NOSIZE);

  SetWindowLong(Application.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);

end;

تحياتي