تغيير صورة سطح المكتب

[الأمل القادم]

بسم الله الرحمن الرحيم

ما الطريقة للتحكم في تغير صورة سطح المكتب ؟

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
من سطح المكتب اضغط بالزر الايمن للفأرة وأختر proprietes
http://im88.gulfup.com/Ly8GZw.jpg
من النافذة التي تظهر اختر bureau ثم اختر الصورة التي تعجبك ثم ok
http://im73.gulfup.com/Y5jJYl.jpg
هنا انا اتحدث عن سطح المكتب الخاص بالحاسب بدون الاوتوبلاي وبما انك وضعت استفسارك في القسم الخاص بالاوتوبلاي فأظن ان الاجابة قد تكون مختلفة
فالرجاء توضيح السؤال وشكرا

[الأمل القادم]

للتوضيح القيام بتغيير الصورة برمجيا
في انتظار الرد
مشكور

[المتعملق]

أتمنى أن تكون الفائدة في هذا الرابط
http://www.4shared.com/rar/VQ7WpWi7/DLLChangeDeskTopBackground.html
بالتوفيق

[فرح صالحي]

img = Dialog.FileBrowse(true, "Select Image", _DesktopFolder, "Pictures (.png, .jpg, .tif, .bmp)|*.png;*.jpg;*.tif;*.bmp|", "", "dat", false, false);

if (img[1] ~= "CANCEL") then
SetWallpaper(0,2,img[1])
end

[الأمل القادم]

شكرا الأخ المتعملق لم أستطيع التحميل

الأخ فرح SetWallpaper ينقص كود الارجاع للمعادلة
فالرجاء توضيح الجواب وشكرا

[عبود عبود]

فى المرفقات ملف مفتوح لذلك


:abc_152:

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
الارجاع للمعادلة يقع بتفس الكود السابق الذي تضعه في زر في الحدث on clic
تضغط على الزر وتختار الصورة ثم تضغط عليه مرة اخرى وتختار الصورة السابقة
بالتوفيق

[الأمل القادم]

أحسنت الأخ عبود عبود
جزاك الله خيرا

[النصل القاطع]

السلام عليكم ورحمة الله وبركاته
الارجاع للمعادلة يقع بتفس الكود السابق الذي تضعه في زر في الحدث on clic
تضغط على الزر وتختار الصورة ثم تضغط عليه مرة اخرى وتختار الصورة السابقة
بالتوفيق
لا يقع بنفس الكود

أخى فرح
أشكر لك تحركك السريع لمساعدة إخوانك

تأمل معى
SetWallpaper(0,2,img[1])

هل SetWallpaper من دوال الأوتوبلاى ؟؟
لا طبعا
هل SetWallpaper من دوال اللوا ؟؟
لا أيضا

أين تقع SetWallpaper
ج - تقع فى الملف المفتوح و تحديدا بالجلوبال فنكشن
:abc_152:

[فرح صالحي]

لا يقع بنفس الكود

أخى فرح
أشكر لك تحركك السريع لمساعدة إخوانك

تأمل معى
SetWallpaper(0,2,img[1])

هل SetWallpaper من دوال الأوتوبلاى ؟؟
لا طبعا
هل SetWallpaper من دوال اللوا ؟؟
لا أيضا

أين تقع SetWallpaper
ج - تقع فى الملف المفتوح و تحديدا بالجلوبال فنكشن
:abc_152:
السلام عليكم ورحمة الله وبركاته
جازاك الله كل الخير اخي النصل القاطع على التوضيح
نحن نتعلم منكم ، فلا تحرمونا من ملاحظاتكم حتى وان ظننتم انها من البديهيات
موفق بإذن الله .:abc_152:.. لك مني أجمل تحية .

[ثامر أبو بلقيس]

تفعيل الاضافة WinApi

الكود التالي قد يفيد كذلك
Registry.SetValue(HKEY_CURRENT_USER, "Control Panel\\Desktop", "WallpaperStyle", "0", REG_SZ);
Registry.SetValue(HKEY_CURRENT_USER, "Control Panel\\Desktop", "TileWallpaper", "0", REG_SZ);
Application.Sleep(500);
DLL.CallFunction(_SystemFolder .. "\\User32.dll", "SystemParametersInfoA", "20,0,\"" .. _SourceFolder .. "\\اسم الصورة.bmp\",1", DLL_RETURN_TYPE_INTEGER, DLL_CALL_STDCALL);

مع مراعاة اسم و مسار الصورة

[ياسرهتهت]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[امل الماضي]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[عبدوعزيز]

مشكووووووووووووور

[ثامر أبو بلقيس]

في المشاركة 12 أعلاه
الملاحظة "تفعيل الاضافة WinApi"

غير ضرورية :abc_139:

[كمال على كمال]

:abc_139::abc_139::abc_139: شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية . :abc_139::abc_139::abc_139: