Pchar or Pansichar

[stasa9711]

Дело такое, использую функцию :

Function GetDirHandle(DirName:String):THandle;
Begin
  Result:=CreateFile(
    PansiChar(DirName+#0),  // pointer to the file name
    GENERIC_READ,           // access (read-write) mode
    FILE_SHARE_READ Or FILE_SHARE_WRITE Or FILE_SHARE_DELETE,  // share mode
    nil,                        // security descriptor
    OPEN_EXISTING,              // how to create
    FILE_FLAG_BACKUP_SEMANTICS, // file attributes
    0                           // file with attributes to copy
  );
End;

Дает тут ошибку : PansiChar(DirName+#0) , если вместо PansiChar вписать Pchar ошибки нет, но при этом вместо кириллицы и латиницы отображаются иероглифы (китайские или хз какие)
как быть ?

[stasa9711]

Работаю в delphi xe 3

[FaTaL]

У Вас кириллица в имени файла что ли?

[Streletz]

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

Дает тут ошибку : PansiChar(DirName+#0) , если вместо PansiChar вписать Pchar ошибки нет

Начиная с версии 2009, в Delphi типы Char и String в юникоде. То есть
PChar это PWideChar, а не PAnsiChar. Поэтому многие вещи, которые работали в старых версиях и описаны в устаревших источниках, начиная с версии 2009 не работают. В их реализацию требуется внесение изменений в соответствии с вышесказанным.

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

при этом вместо кириллицы и латиницы отображаются иероглифы (китайские или хз какие)
как быть

Попробуйте поменять кодировку.

[ZuBy]

CreateFileW

[Stilet]

CreateFileW

Если я правильно помню то CreateFile уже по умолчанию идет юникодным... или нет?

stasa9711

Можно поинтересоваться целью функции GetDirHandle(). Для его она?

[eval]

целью функции GetDirHandle(). Для его она?

врядли, вот для неё она в самый раз

[Stilet]

для неё она в самый раз

Тьфу ты шутник ))))
Ну очепятался, с кем не бывает.

stasa9711

Расскажи для чего нужно получать хендл каталога. Зачем тебе эта функция?

[eval]

так это тоже сарказм

[Stilet]

Та понял я понял...