Нужно переименовать загружаемый файл уникально

[monneti]

Уважаемые программисты создаю программу по загрузке файлов на хостинг.
Хочу спросить как реализовать средствами Delphi переименование файлов.
Зачем это нужно?
Но вот заливаю я один файл на сервер, но потом кто-то заливает файл с точно таким названием и тот файл который я лично заливал заменяется другим файлом с точно таким названием.
Возможно ли средствами Delphi реализовать переименование имени каждого заливаемого файла в уникальное имя например в 7d5f1q9l3z9a4kq8.jpg .
Надеюсь Вы мою идею услышали. Нужно переименовать например sveta.jpg в 7d5f1q9l3z9a4kq8.jpg

Заранее благодарен.

[BARNEY]

UUID вам в помощь... думаю не повториться

[eval]

GetTempFileName

[monneti]

Люди а можно по подробнее с примером?

[DelhiProgramer]

Проблема в том, что кто-то другой может назвать файл типа 7d5f1q9l3z9a4kq8.jpg, хоть это и маловероятно. Сделай цикл случаных символов, типа

var
s: string;
i: integer;
begin
s:='';
for i:=1 to 32 do s:=s+char(random(64)+192);

и будет выдавать что вроде ТЙзппЕДГЖтуШзЫпЯХффЙЕДГМлОдРЧхФФ

[eval]

GetTempFileName: http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx и с примерами и с объяснениями.

[monneti]

Сообщение от DelhiProgramer

Проблема в том, что кто-то другой может назвать файл типа 7d5f1q9l3z9a4kq8.jpg, хоть это и маловероятно. Сделай цикл случаных символов, типа

var
s: string;
i: integer;
begin
s:='';
for i:=1 to 32 do s:=s+char(random(64)+192);

и будет выдавать что вроде ТЙзппЕДГЖтуШзЫпЯХффЙЕДГМлОдРЧхФФ

Дайте по яснее пример.

[Человек_Борща]

monneti,
именуй полностью.... аж до самого 0xFFFFFFFF

function RandomName:sring;
begin
 Randomize;
 Result:=IntToHex(Random(MAXINT),8);
end;

Уникальность обеспечена!

[monneti]

Благодарю Вас за ответы.
Но все же хотелось бы увидеть полный код.
С переименованием файла.
Полный код с RenameFile

[monneti]

Сообщение от Человек_Борща

monneti,
именуй полностью.... аж до самого 0xFFFFFFFF

function RandomName:sring;
begin
 Randomize;
 Result:=IntToHex(Random(MAXINT),8);
end;

Уникальность обеспечена!

Благодарю Вас за ответы.
Но все же хотелось бы увидеть полный код.
С переименованием файла.
Полный код с RenameFile