Случайное имя папки

[MAO_NET]

Здравствуйте форумчане..Только осваиваю сие чудо, прошу подсказать..
Всем известный пример

procedure TForm1.Button1Click(Sender: TObject);
begin
  if createdir('c:TestDir') = true then
    showmessage('Директория успешно создана')
  else
    showmessage('При создании директории произошла ошибка');
end;

это понятно. а как создать папку со случайным именем? сгенерировать рандомно буквы и цифры? поиск по форуму не помог..нагуглил такого что ещё больше запутался..


___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Lifefine]

if createdir('c:TestDir') = true

,разве создается директория?

По моему должно так

if createdir('c:\TestDir') = true

[MAO_NET]

да, ошибся, но всё же?

[Lifefine]

Так пойдет?

const Chars = '23456789ABCDEFGHJKLMNPQRSTUVWXYZ!?/*+-';
var S: string;
  i, N: integer;
begin
 Randomize;
  S := '';
  for i := 1 to 6 do begin
    N := Random(Length(Chars)) + 1;
    S := S + Chars[N];
  end;
  if CreateDir('C:\'+S) =true then
  showmessage('Директория успешно создана')
  else
 showmessage('При создании директории произошла ошибка');
end;

[MAO_NET]

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

if createdir('c:TestDir') = true

,разве создается директория?

По моему должно так

if createdir('c:\TestDir') = true

Кстати только что проверил - без "\" тоже создаётся

[Lifefine]

Интересно), первый раз вижу такое)

[MAO_NET]

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

Интересно), первый раз вижу такое)

Серьёзно) только что ещё раз проверил весь Ваш пример без слэша - работает) Спасибо большое за оперативность)

[MAO_NET]

Не понял..Всё работало пока не сохранил в экзешник.. в нём -на отрез не хочет)

[Lifefine]

Не понял вопрос), т.е. у тебя не появляется экзешник?

[ArtGrek]

без слеша работает потому что или ехе там, или последнее обращение раньше было там, или по умолчанию должно сохранить в C:\ если путь не наиден
если зделать так

C:myFolder\fileName.xxx

то оно всеравно сохранит в С:\
так как не наидет путь