unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellAPI;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Memo2: TMemo;
    Label2: TLabel;
    Memo3: TMemo;
    Label3: TLabel;
    Label4: TLabel;
    Memo4: TMemo;
    {функция запускающая приложение и ожидающая его завершения}
    function ExecAndWait(const FileName, Params: ShortString; const WinState: Word): boolean; export;
    procedure MyRewriteProc(namefile,WDorDW:string);//процедура перевода файлов из Win-кодировки в DOS -кодировку и оборатно
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.MyRewriteProc (namefile,WDorDW:string);//процедура перевода файлов из dos-кодировки в win -кодировку и обратно
const
  BUF_SZ = 4096;
var
  DosWinFile: file;
  dosBuf: array [0..BUF_SZ - 1] of Char;
  winBuf: array [0..BUF_SZ - 1] of Char;
  rCnt: Integer;
  wCnt: Integer;
begin
if WDorDW='DOStoWIN' // ASCII (DOS) -> ANSI (Win)
then begin
  AssignFile(DosWinFile, namefile);
  Reset(DosWinFile, 1);
  BlockRead(DosWinFile, dosBuf, BUF_SZ, rCnt);
  OemToCharBuff(dosBuf, winBuf, rCnt);     // ASCII (DOS) -> ANSI (Win)
  CloseFile(DosWinFile);
  ReWrite(DosWinFile, 1);
  BlockWrite(DosWinFile, winBuf, rCnt, wCnt); // запись в ANSI (Win)-кодировке
  CloseFile(DosWinFile);
end;
if WDorDW='WINtoDOS' //  ANSI (Win) ->  ASCII (DOS)
then begin
  AssignFile(DosWinFile, namefile);
  Reset(DosWinFile, 1);
  BlockRead(DosWinFile, winBuf, BUF_SZ, rCnt);
  CharToOEMBuff(winBuf, dosBuf, rCnt);     //  ANSI (Win) ->  ASCII (DOS)
  CloseFile(DosWinFile);
  ReWrite(DosWinFile, 1);
  BlockWrite(DosWinFile, dosBuf, rCnt, wCnt); // запись в ASCII (DOS)-кодировке
  CloseFile(DosWinFile);
end;
end;
 
function TForm1.ExecAndWait(const FileName, Params: ShortString; const WinState: Word): boolean; export;
{функция запускающая приложение и ожидающая его завершения и записывающая результат работы в текстовый файл otvet.txt}
var 
  StartInfo: TStartupInfo; 
  ProcInfo: TProcessInformation; 
  CmdLine: ShortString; 
begin 
  { Помещаем имя файла между кавычками, с соблюдением всех пробелов в именах Win9x } 
  CmdLine := '"' + Filename + '" ' + Params+' >otvet.txt';
  FillChar(StartInfo, SizeOf(StartInfo), #0);
  with StartInfo do 
  begin 
    cb := SizeOf(StartInfo); 
    dwFlags := STARTF_USESHOWWINDOW; 
    wShowWindow := WinState; 
  end; 
  Result := CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil, false, 
                          CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, 
                          PChar(ExtractFilePath(Filename)),StartInfo,ProcInfo); 
  { Ожидаем завершения приложения } 
  if Result then 
  begin 
    WaitForSingleObject(ProcInfo.hProcess, INFINITE);
    { Free the Handles }
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.SaveToFile(ExtractFileDir(Application.ExeName)+'\bp7.0\BIN\KOD.pas'); //сохраняем наш код в файл c Win-кодировкой
{перевод кодировок из win в dos (из одного файла в другой), т.к. Delphi работает
с Win-кодировкой, а Pascal с dos-кодировкой}
MyRewriteProc(ExtractFileDir(Application.ExeName)+'\bp7.0\BIN\KOD.pas','WINtoDOS');
{Теперь создадим процесс в котором запустим компилятор bpc.exe с параметрами указывающими на наш файл и дождемся его завершения}
ExecAndWait(ExtractFileDir(Application.ExeName)+'\bp7.0\BIN\BPC.exe','-b KOD.pas', SW_SHOWNORMAL) ;
{перевод кодировок из dos в win (из одного файла в другой), т.к. Delphi работает
с Win-кодировкой, а Pascal с dos-кодировкой}
MyRewriteProc(ExtractFileDir(Application.ExeName)+'\bp7.0\BIN\otvet.txt','DOStoWIN');
Memo2.Lines.LoadFromFile(ExtractFileDir(Application.ExeName)+'\bp7.0\BIN\otvet.txt');
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
{перевод кодировок из win в dos (из одного файла в другой), т.к. Delphi работает
с Win-кодировкой, а Pascal с dos-кодировкой}
MyRewriteProc(ExtractFileDir(Application.ExeName)+'\bp7.0\BIN\input.txt','WINtoDOS');
Memo3.Lines.SaveToFile(ExtractFileDir(Application.ExeName)+'\bp7.0\BIN\input.txt');
ExecAndWait(ExtractFileDir(Application.ExeName)+'\bp7.0\BIN\KOD.exe','', SW_SHOWNORMAL);
{перевод кодировок из dos в win (из одного файла в другой), т.к. Delphi работает
с Win-кодировкой, а Pascal с dos-кодировкой}
MyRewriteProc(ExtractFileDir(Application.ExeName)+'\bp7.0\BIN\output.txt','DOStoWIN');
Memo4.Lines.LoadFromFile(ExtractFileDir(Application.ExeName)+'\bp7.0\BIN\output.txt');
end;
 
end.