هذا الكود يسمح بتغيير صورة سطح المكتب بعد كل ثانية
procedure TForm1.Timer1Timer(Sender: TObject);
var x:string;
begin
if listbox1.ItemIndex > 2 then listbox1.ItemIndex:= -1 ;
x:=listbox1.Items.Strings[listbox1.ItemIndex+1];
systemparametersinfo(spi_setdeskwallpaper,0,pchar(x),0);
listbox1.ItemIndex:=listbox1.ItemIndex+1;
end;
end
مشكور اخوي Pati على الكود الجميل
وتقبل تحياتي اخوك SUM
السلام عليكم ورحمة الله
اخواني نسية ان اخبركم بملأ
listbox بالصور المراد اضهارها
مثال c:windowsغابة.bmp
وشكرا
اخي sum اشكرك على قرائتك هذ الكود مع اني اشك انك لم تجربها من قبل لاني اعرفك فهل تعرفني
انتضر مني الكثير
انتضر منك الجديد
وفقنا الله
اخي العزيز Pati صدقت انا لم اجرب الكود
وكتبت ذلك لكي اشجعك
لأني دائماً عندما اكتب اكواد في اي منتدى
ولم اجد اي شكر احس ان الكود غير مفيد
واما بالنسبة لمعرفتك بي فقد عرفت انا :)
طبعاً بعدما اطلعت على موضوع آخر كتبته انت
وطبعاً نرحب بك مره اخرى اهلاً وسهلاُ بك
وإن شاء الله نستفيد منك وتستفيد منا:)
وتقبل اطيب تحياتي اخوك SUM
اخي sum اني لا اقصد الا خيرا لاني جد فخور بك
ولا اعرف لماذا اجد صعوبة بالتخاطب معكم
ربما لاني اميل الي اللغة الفرنسية شيئ ما
قلت انك ربما تعرف هذا الكود مسبقا
لاني لا اشك في قدرتك وعلمك
المهم انا اسف مع انك انت لم تفهمني
اخي sum اني انتضر مشروعك بفارغ الصبر
وشكرا وشكرا وشكرا وشكرا وشكرا وشكرا وشكرا وشكر ا
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…