我菜，请教一个简单的问题！请进...(50分)

我想在软件可换背景图片，并下次启动软件用更换后图片（保存设置）。该如何实现？
附：这应该怎么写？
form1.image1.picture:=OpenDialog1.FileName;
谢谢！

将信息保存在注册表或INI文件中都可以呀。

把一些基本的設置保存在ini文件裡

谢谢！
可以详细一些吗，例如如何读写ini文件...

UP 关注！

以前寫的例子，沒整理:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
name:array[1..25] of char;
version:integer;
begin
version:=GetPrivateProfileInt(
//從.INI文件中獲取版本信息
'ProgramInfo',//[]中節的名稱
'Version',//=前的鍵名
0, //如果沒有找到整數時，返回0
'd:/tmp.ini'//.INI文件名
);
Edit2.Text:=IntToStr(version);//顯示版本
GetPrivateProfileString(
//從.INI文件中獲取姓名信息
'ProgramInfo',//[]中節的名稱
'Name', //=前的鍵名
'', //如果沒有找到字符串時，返回Nil
@name,//存放取得字符串
25,//取得字符的允許最大長度
'd:/tmp.ini' //.INI文件名
);
Edit1.Text:=name; //顯示程序名
end;

procedure TForm1.FormDestroy(Sender: TObject);
var
VerStrChar;
NameChar;
begin
VerStr:=pChar('Version='+Edit2.Text);
WritePrivateProfileSection(
//向.INI文件寫入段及信息版本
'ProgramInfo', //段名
VerStr,
'd:/tmp.ini'
);
Name:=pChar(Edit1.Text);
WritePrivateProfileString(
//向.INI文件寫入程序名
'ProgramInfo',
'Name',
Name,
'd:/tmp.ini'
);
end;

end.

谢谢！
附：这应该怎么写？
form1.image1.picture:=OpenDialog1.FileName;
好象不对？

你用Self.Image1.Picture.LoadFromFile('c:/aa.bmp')吧...

image1.picture.LoadFromFile(OpenDialog1.FileName)

to gztiger and qianwt:
谢谢！
我先试一下。

多人接受答案了。