Delphi + *.bat с кириллицой

[ToLeG]

Вобщем проблема в следующем, вмемо есть команда пусть будет copy, и соответственно что и куда копировать, названия папок на русском языке. Сохраняю из мемо в 1.bat не работает русские буквы меняются на кракозябры. Пробовал дописывать chcp 866 не помогает. При вводе этой команды в командную строку все проходит на ура. Что делать??

[raxp]

...конвертировать при записи в bat нужно сами строки в oem/

[ToLeG]

А как это сделать в делфи можете рассказать??

[raxp]

chartoem()/

[ToLeG]

"memo1.Lines.Add('Copy'+chartooem(L istBox3.Items.Strings[i]));"

Пишет несоответствие типов String and Pansichar

как быть??

[Яр|/||< (^_^)]

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

"memo1.Lines.Add('Copy'+chartooem(L istBox3.Items.Strings[i]));"

Пишет несоответствие типов String and Pansichar

как быть??

пиши memo1.Lines.Add('Copy'+chartooem(Pa nsichar(ListBox3.Items.Strings[i])));

[ToLeG]

chartooem(IpszSRC: pAnsichar;IpszDST: pAnsichar); вот такие параметры он имеет, что туда писать??

[ToLeG]

Если кому-то поможет, то я разобрался)

procedure TForm1.Button3Click(Sender: TObject);
 var a:string;
begin
 SetLength(a,Length(ListBox3.Items.Strings[1]));
 CharToOem(pchar(ListBox3.Items.Strings[1]),pchar(a));
 memo1.Lines.Add('Copy '+a);
 memo1.Lines.SaveToFile(extractfilepath(paramstr(0))+'1.bat');
 ShellExecute(Application.Handle, 'Open', pansichar(extractfilepath(paramstr(0))+'1.bat'), '', '', SW_SHOWNORMAL);
end;