برنامه برای background در دلفی

[soft-c]

می خواهم برنامه ای بنویسم برای background ویندوز . یعنی وقتی برنامه را نصب کردم خود به خود در background ویندوز نصب بشه . فکر کنم اینجور برنامه ها دیده باشید که یک متنی یا ... در background وجود دارد و هر روز عوض میشه . اگر میشه راهنمایی کنید .
تشکر.

[سعید صابری]

var
St: array[0..100] of Char;
begin
St:=''XXX.JPG';
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, @St, SPIF_SENDCHANGE);

یا

procedure ChangeWallpaper(Filename: String; Tile: Boolean);
var
Reg: TRegIniFile;
begin
Reg := TRegIniFile.Create('Control Panel');
try
Reg.WriteString('Desktop', 'Wallpaper', Filename);
Reg.WriteString('Desktop', 'TileWallpaper', IntToStr(Ord(Tile)));

SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
finally
Reg.Free;
end;
end;

[mnakhaei67]

سلام.میشه یکی منو راهنمایی کنه چه جور میشه برنامه برای background فرم در دلفی نوشت؟من فرمی در دلفی طراحی کردم از خاصیت picture فرم هم استفاده کردم اما میخوام بدونم راه دیگه ای مثل همین کد نویسی وجود نداره؟ممنون از راهنمایی هایتان

[soft-c]

var
St: array[0..100] of Char;
begin
St:=''XXX.JPG';
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, @St, SPIF_SENDCHANGE);

یا

procedure ChangeWallpaper(Filename: String; Tile: Boolean);
var
Reg: TRegIniFile;
begin
Reg := TRegIniFile.Create('Control Panel');
try
Reg.WriteString('Desktop', 'Wallpaper', Filename);
Reg.WriteString('Desktop', 'TileWallpaper', IntToStr(Ord(Tile)));

SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE);
finally
Reg.Free;
end;
end;



تشکر از راهنماییتون .
این کدی که نوشتین برای ایجاد یک بک گراند هست ؟
اگر بله چطوری میشه برنامه را طوری تغییر داد که مثلا هر روز بک گراند جدیدی نصب بشه . (فکر کنم این نوع برنامه ها را دیده باشید که اکثرا تبلیغاتی هستند ).

[MohsenB]

سلام


شما یه برنامه مینویسید که بصورت مخفی و یا در سیستم تری در حال اجرا باشد . تو اون برنامه یه تایمر بلند مدت طراحی میکنید که در موقع اون تایمر عکس هایی که میخواید رو با کدهای دوستان جای بک گراوند بزاره .


موفق باشد .