如何把32张图片做成屏保或者桌面，更换时间自己设定。(30)

孩子的图片，想做成屏保或者桌面，更换时间自己设定，用DELPHI实现如题。如果有原码的更好。

做成屏保：1.做成exe程序，具体切换时间你自己程序里面控制2.把这个exe程序重命名为*.scr3.该文件放到文件夹C:/WINDOWS/system32下4.在桌面-属性-屏幕保护程序 选中刚才的文件5.应用

DELPHI如何将图片做一帖一帖做出来？有相关代码提供下吗？！先谢谢了。

非常简单,窗口放大到全屏,上面放个image,根据设置的时间,loadfromfile

图片如何自己自动切换？

ok,试试去。

代码如何写:比如三张图片IMG,分别放置在三个窗体中,然后在什么事件里写image控件里?写什么语句?

建议买本ＤＥＬＰＨＩ基础教程傻瓜７日通学习。

网上随便找个屏保制作工具，一大堆，都能实现你要的效果。或者去看看imageEN 控件的示例，很多很多 。。。不用写什么代码

多人接受答案了。

要写代码的。昨天从网上搜索下了，然后修改了下才完成。var MainForm: TMainForm; AppPath: String; i: Integer;const sCount= 5; //&Eacute;è&Ouml;&Atilde;&AElig;&Aacute;±&pound;&Iacute;&frac14;&AElig;&not;×&Uuml;&Ecirc;&yacute;implementationuses PWFormUnit;{$R *.DFM}procedure TMainForm.Timer1Timer(Sender: TObject); //&Eacute;è&Ouml;&Atilde;&AElig;&Aacute;±&pound;&Iacute;&frac14;&AElig;&not;&Ntilde;&shy;&raquo;·begin if i< sCount then begin i:= i+ 1;Image1.Picture.LoadFromFile(AppPath+ IntToStr(i)+ '.jpg'); //&para;&Aacute;&Egrave;&iexcl;&AElig;&Aacute;±&pound;&Iacute;&frac14;&AElig;&not; end else i:= 0;end;procedure TMainForm.FormCreate(Sender: TObject);begin i:= 0; AppPath:= ExtractFilePath(ParamStr(0)); Image1.Picture.LoadFromFile(AppPath+ '5.jpg'); ShowCursor(False); //&Ograve;&thorn;&sup2;&Oslash;&Ecirc;ó±êend;procedure TMainForm.Image1Click(Sender: TObject);begin Application.CreateForm(TPWForm, PWForm); PWForm.ShowModal; PWForm.Free; ShowCurSor(True); //&Iuml;&Ocirc;&Ecirc;&frac34;&Ecirc;ó±êend;procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char);begin Application.CreateForm(TPWForm, PWForm); PWForm.ShowModal; PWForm.Free; ShowCurSor(True);end;procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if(Key=VK_F4) and ([ssAlt]=shift) then //&AElig;&Aacute;±&Icirc;Alt+F4&frac14;ü&Egrave;&Atilde;&sup3;&Igrave;&ETH;ò&sup2;&raquo;&Auml;&Uuml;±&raquo;&sup1;&Oslash;±&Otilde; Key:=0;end;

还得把图片也拷贝到system32下