[Anton93]

Считываю текст в переменную из файла, но в место теста китайские иероглифы, как исправить?

Код:

function FileOpenText(strFile:PChar):PChar;
var
  f:thandle;
  dwResSize, dwRead:DWORD;
  pRes: PChar;
begin
  result:='';
  F:=CreateFile(pchar(strFile), GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if F=INVALID_HANDLE_VALUE then exit;
  dwResSize:=GetFileSize(F, nil);
  pRes:=SysGetMem(dwResSize);
  ReadFile(F, pRes^, dwResSize, dwRead, nil);
  CloseHandle(F);
  Result:=pRes;
end;

....

ShowMessage(FileOpenText('loginusers.txt'));

[lmikle]

Какая версия дельфей и в какой кодировке записан файл?

[Anton93]

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

Какая версия дельфей и в какой кодировке записан файл?

Delphi XE5. Кодировка стандартная, какая в win 7 в блокноте asci.

В файле данные такого типа:

Nickname{ "d4rkzy" }
Pass { "qwerty" }
url { "https://******.net/****.html" }

[lmikle]

Ага, вот тут, скорее всего, собака и порылась.
Первое, что смущает в твоем коде:

Код:

ReadFile(F, pRes^, dwResSize, dwRead, nil);

Зачем разименовывать указатель на буфер? PChar - это уже указатель. Убери "крышку".
Далее, если не поможет, начинаем разбираться с Unicode.
Для начала попробуй так:

Код:

ShowMessage(AnsiString(FileOpenText('loginusers.txt')));

А еще лучше, наверное, сделать так:

Код:

function FileOpenText(strFile:PChar):String;
var
  f:thandle;
  dwResSize, dwRead:DWORD;
  pRes: AnsiString;
begin
  result:='';
  F:=CreateFile(pchar(strFile), GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  if F=INVALID_HANDLE_VALUE then exit;
  dwResSize:=GetFileSize(F, nil);
  SetLength(pRes,dwResSize);
  ReadFile(F, pRes[1], dwResSize, dwRead, nil);
  CloseHandle(F);
  Result:=pRes;
end;
 
....
 
ShowMessage(FileOpenText('loginusers.txt'));

Кстати, вопрос. А зачем надо это делать через API? Стандарных функций паскаля недостаточно?