تغییر تصویر Desktop

[Saeid59_m]

سلام،

می خواهم برنامه ای بنویسم که تصویر دسک تاپ ویندوز را چند دقیقه یکبار عوض کند
اگه از اساتید کسی در این مورد کار کرده لطفاً راهنمائی کند .

قبلاً از راهنمائیتان ممنونم . :بوس:

[Tasnim]

اگه توی سایت جستجو کنی به نتیجه میرسی

[فرزاد دلفی باز]

متاسفانه من هم دنبالش هستم ولی تا الان موفق نشدم تو 98راحتره

[dkhatibi]

این برنامه را ببینید!(مسیر عکس را داخل برنامه تغییر بدهید)

[فرزاد دلفی باز]

دوست عزیز با فایل های JPG کار نمیکنه مسله اینجاست

[Saeid59_m]

فرزاد دلفی باز درست می گه فایل های Jpeg‌ رو نمی شه بعنوان BackGround‌ قرار داد
اگه کسی می تونه کاملش کنه .

ممنون

[sarvestan]

uses JPEG;

var
bmp :TBitmap;
jp : TJPEGImage;
begin
jp := TJPEGImage.Create;
jp.LoadFromFile('c:\a.jpg');
bmp := TBitmap.Create;
bmp.Assign(jp);
bmp.SaveToFile('c:\a.bmp');
end;
برای تبدیل JPEG به BMP

[Saeid59_m]

اما می دونید که حجم فایلهای JPeg کمتر از BMP‌ است . یعنی راهی نداره که یک تصویر Jpeg رو مستقیماً قرار بدیم .

من قبلاً با استفاده از رجیستری این کار رو کرده بودم ولی مشکل اینجا بود که بعد از تغییر تصویر ، دسکتاپ refresh نمی شد و باید کامپیوتر مجدداً راه اندازی می شد تا تصویر رو ببینم .