Случайный выбор с папки

[Marsik]

Здравствуйте!Пожалуйста помогите Я заменяю фон десктопа при помощи процедуры:

procedure setwallpaper(fname:string);
var
reg : treginifile;
begin
reg := treginifile.create('control panel\desktop' );
with reg do begin
writestring( '', 'wallpaper',fname );
writestring('', 'tilewallpaper', '0' );
end;
reg.free;
systemparametersinfo(spi_setdeskwallpaper, 0, nil,spif_sendwininichange );
end;

(могут быть ошибки какие?)

Вызываю при помощи:

procedure tform1.formcreate (sender: tobject);
begin
setwallpaper('c:\s\ава.bmp');
end;

Я запихиваю в c:\s несколько рисунков.И мне надо чтобы при открытии формы случайным образом выбирался рисунок с папки c:\s и установился фоном.И так чтобы если фоном был 'q1' и случайным образом тоже выбирался 'q1' то заменялся на другой.Подскажите пожалйста как можно осуществить?

Код вставляем в тег [CОDE][/СОDЕ] или пользуемся кнопкой # (расширенный режим). Модератор.

[AlDelta]

В StringList добавляешь пути к файлам (с расширением *.jpg, *.bmp) в папке c:\s. Потом рэндомом подставляй их в свою функцию по смене обоев.
Поиск файлов в папке смотри тут (код перепишешь под себя):
http://programmersforum.ru/showthrea...EF%E0%EF%EA%E5

[Marsik]

В том то и дело,что я незнаю как будут называться рисунки.Я знаю где они находятся,но незнаю как называются и сколько всего рисунков!Тот код чтото я непонял,можете обьяснить?Или есть другой выход?