[adidas]

В программе пытаюсь получить название текущего VPN-соединения:

Код:

WinExec(PAnsiChar('cmd /u /c rasdial > log.txt'), SW_HIDE);

При загрузке файла в Memo кириллица отображается "крякозябами":

‘ўп§м б
PPPoE
Љ®¬ *¤ гбЇҐи*® § ўҐаиҐ* .

и, если название соединения на русском, то дальше работать с этим названием невозможно.
Помогите заставить кириллицу отображаться кириллицей
П.С. Delphi 2010

[lmikle]

OEMToAnsi...

[adidas]

Делаю так:

Код:

var
N: PAnsiChar;
begin
Memo1.Lines.LoadFromFile('log.txt');
N:=PAnsiChar(Memo1.Lines.GetText);
OEMToAnsi(N,N);
Memo1.Lines.Text:=StrPas(N);

, но получаю меньше бреда О_о:

 ^?з

[lmikle]

Ой, держите меня семеро...
PXXXChar - это указатель!!! Под него надо выделять память!!!

[NumLock]

на Delphi 6 прекрасно работает:

Код:

procedure TForm1.AOemToAnsi;
var
  s: String;
begin
  Memo1.Lines.LoadFromFile('d:\0');
  SetLength(s, Length(Memo1.Text));
  OemToAnsi(PChar(Memo1.Text), PChar(s));
  Memo1.Text:=s;
end;

[adidas]

NumLock, а у мну материться:

E2010 Incompatible types: 'Char' and 'AnsiChar'

тут:

Код:

OemToAnsi(PChar(Memo1.Text), PChar(s));

П.С. В Д7 тоже норм работает, но нужно под Д2010.