[Страдалецъ]

Задача не совсем для Дельфи, но все-же.
Необходимо записать файл на диск, так что-бы в его имени было видимо ударение, т.е. наклонная черточка над буквой.
Решение однозначно есть, ибо сам такой файл видел и переименовывал, но вот какими путем сие достигнуто неясно.
Например сохраните файл с именем ”Странно́е имя файла.txt”

[M.A.D.M.A.N.]

str := 'выапв'#$3f+'sdg'
так получается?

[Страдалецъ]

Сообщение от M.A.D.M.A.N.

str := 'выапв'#$3f+'sdg'
так получается?

Нееее, если бы все так просто было
Ошибку ввода/вывода 123 будем иметь.

[Freeman]

Что конкретно интересует-то? Ввод ударе́ния с клавиатуры -- зажать Alt и набрать 769 на цифровой клаве. Переименовать файл -- в любой программе, поддерживающей Unicode, -- в том же "Проводнике", не к ночи будет помянут.

Программно -- аналогично, только использовать WideString (UnicodeString или просто string в модных версиях Delphi) и W-версии системных функций:

Код:

var
  W: WideString;
begin
  W := Application.ExeName;
  if not MoveFileW(Pointer(W), Pointer(W + WideChar(769))) then
    RaiseLastOSError;
end;

[Страдалецъ]

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

Что конкретно интересует-то? Ввод ударе́ния с клавиатуры -- зажать Alt и набрать 769 на цифровой клаве. Переименовать файл -- в любой программе, поддерживающей Unicode, -- в том же "Проводнике", не к ночи будет помянут.

Программно -- аналогично, только использовать WideString (UnicodeString или просто string в модных версиях Delphi) и W-версии системных функций:

Код:

var
  W: WideString;
begin
  W := Application.ExeName;
  if not MoveFileW(Pointer(W), Pointer(W + WideChar(769))) then
    RaiseLastOSError;
end;

1. Открываем проводник в WinXP, пробуем переименовать по вашему рецепту. Получаем неотображаемый символ. Вывод - не катит такое решение.
2. Пока проверить не могу. Проверьте у кого есть Дельфа с поддержкой юникода и отпишитесть о результатах.

[Freeman]

Сообщение от Страдалецъ

1. Открываем проводник в WinXP, пробуем переименовать по вашему рецепту.

Ого! Не проверил, понадеялся на Microsoft. Каюсь. :-)

Тогда то же самое можно проделать через командный файл? Гм. Тоже не получается. "Блокнот" ударения сохраняет, но только в формате Unicode, а оболочка такие bat-файлы не выполняет. Если кто-то сможет проделать это через установочный inf-файл и rundll32 advapi32, впору будет писать на "Хабр" в "Ненормальное программирование".

Сообщение от Страдалецъ

2. Проверьте у кого есть Дельфа с поддержкой юникода и отпишитесть о результатах.

Я проделывал это в Delphi 6.