Что конкретно интересует-то? Ввод ударе́ния с клавиатуры -- зажать 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;