قرار دادن عکس مورد علاقه به عنوان پس زمیته pc

[M aJi D]

سلام.
اولاً ببخشید که سوالم را در ایجا مطرح می کنم چون تو سایت قسمتی برای برنامه نویسی دلفی و سیستم ندیدم.

اما سوالم اینه که سورس کدی می خوام که عکسهای موجود تو 1 پوشه را با رندوم یا شمارنده (اسم عکسها از 1تا 100)عکس ها را بندازه پس زمینه دسک تاپ
خیلی ممنون میشم اگر این تاپیک رو پاک نکنید .


از دوستان برنامه نویسم هم ممنونم

[سعید صابری]

سلام
اسم فايل هات شماره بزار و در قسمت آدرسpath+'\'+IntToStr(random)+'.jpg' اينجوري استفاده كن


سورس كد از آقاي بابك يعقوبي


program wallpapr;

uses
Registry, WinProcs;

procedure SetWallpaper(
sWallpaperBMPPath : String;
bTile : boolean );
var
reg : TRegIniFile;
begin
//
// change registry
//
// HKEY_CURRENT_USER
// Control Panel\Desktop
// TileWallpaper (REG_SZ)
// Wallpaper (REG_SZ)
//
reg := TRegIniFile.Create(
'Control Panel\Desktop' );
with reg do
begin
WriteString( '', 'Wallpaper',
sWallpaperBMPPath );
if( bTile )then
begin
WriteString(
'', 'TileWallpaper', '1' );
end else
begin
WriteString(
'', 'TileWallpaper', '0' );
end;
end;
reg.Free;

//
// let everyone know that we changed
// a system parameter
//
SystemParametersInfo(
SPI_SETDESKWALLPAPER,
0,
Nil,
SPIF_SENDWININICHANGE );
end;

begin
//
// set wallpaper to centered winnt.bmp
//
SetWallpaper(
'c:\winnt\winnt.bmp',
False );
end.