WriteFile и русский язык

[DIgorevich]

Приветствую!
Пишу плеер, добавил ассоциацию файлов, и, соответственно, хотелось бы, чтобы файлы добавлялись в плейлист, а не запускали каждый раз новую версию плеера. Поиски привели меня к данной статье. И все работает замечательно, кроме одного "но": при двойном клике на ассоциированном файле, который содержит русские буквы (к примеру, "08. Вальсаутро") на участке кода:

      if ParamCount > 0 then
          Letter := ParamStr(1)
      else
        Letter := '';
      ShowMessage(letter);

сообщение мне выдает примерно следующее "13EA41~1".

Соответственно и в плейлисте потом непойми что отображается. Знающих, прошу помочь. Спасибо!

[veniside]

http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

[DIgorevich]

veniside, с моим английским, и Си-знанием, считайте, что ничего мне так и не сообщили. Но спасибо, что поняли суть вопроса (видимо...)

UPD: проще говоря, одна и та же строка "ShowMessage(ParamStr(1));" дает разные значения. Если находится OnFormCreate pas-файла, то русские символы воспринмаются хорошо. Если же эта строчка находится в dpr-файле проекта, то идет абракадабра.

[veniside]

передается, походу, "короткое" имя файла, которое (видимо) нужно представить как "длинное" имя

указанная выше функция должна в этом помочь, прототип ее (должен быть) описан в windows.pas

[DIgorevich]

Нет, передается не "короткое" имя, при "ShowMessage(ParamStr(1));" отчетливо видны пути, но в "корявом" отображении русских символов.

[Аватар]

Юникодные проблемы видимо для новых версий дельфи. ParamStr возвращает AnsiString. А в ShowMessage параметр WideString

[DIgorevich]

Версия делфи - 7
Поискал еще:
если ассоциировать файлы с параметром "%L" то тогда "ShowMessage(ParamStr(1));" отображает и там, и там русские символы нормально, но только путь, без имени самого файла.

procedure Registration( FileType, FileTypeName,  Description, ExecCommand,  Index: string ); 
var
  reg: TRegistry;
begin
   if ( FileType = '' ) or ( FileTypeName = '' ) or
      ( ExecCommand = '' )
   then
      Exit;
   if FileType[1] <> '.' then FileType := '.' + FileType;
   if Description = '' then Description := FileTypeName;
   reg := TRegistry.Create;
   with Reg do
   begin
      RootKey := HKEY_CLASSES_ROOT;
      OpenKey( FileType, true );
      WriteString( '', FileTypeName );
      CloseKey;
      OpenKey( FileTypeName, true );
      WriteString( '', Description );
      CloseKey;
      OpenKey( FileTypeName + '\DefaultIcon', true );
      WriteString( '', ExecCommand + ', ' + Index );
      CloseKey;
      OpenKey( FileTypeName + '\Shell\Open\Command', true );
      WriteString( '', ExecCommand + ' %L' );
   end;
   reg.Free;
end;

[Аватар]

Можно попробовать поиграться с FindFirstFile от ParamStr(1) и посмотреть что будет в TWin32FindData

[DIgorevich]

Вопрос снимается, извиняюсь. Надо было всего лишь кавычить при ассоциации:

WriteString('', '"' + ExecCommand + '" "%1"');