Совместимость Win XP и Win 2000 при взаимодействии с консолью

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
   const
   _WIN32_WINNT = $0501;
type
TAttachConsole = function (dwProcessId: DWORD): LongBOOL stdcall;
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  AttachConsole: TAttachConsole;
  mProcessID, Wnd, Hcwnd, chRead: Cardinal;
  BufInfo: _CONSOLE_SCREEN_BUFFER_INFO;
  lpCh: PChar;
  Coord: _COORD;
  i: Integer;
  p:string;
   s, ss: string;
implementation
 
{$R *.dfm}
function OpenFile(var fLog: TextFile; const LogFileName: String;
   const IsErase: Boolean = False): Boolean;
var
   TmpStr: String;
begin
 
   AssignFile(fLog, LogFileName);
   Result := IOResult = 0;
   if Result then begin
      if IsErase or (not FileExists (LogFileName)) then
         Rewrite(fLog)
      else
         Append(fLog);
      Result := IOResult = 0;
   end;
 
end;
 
function WriteLnStr(const fLog: TextFile; const fStr: string): boolean;
 
begin
{$I-}
   Writeln (fLog, fStr);
   Result := IOResult = 0;
   if Result then begin
         // { Flush(fLog); }
        Flush(System.Input); // {System.Output}
      Result := IOResult = 0;
   end;
{$I+}
end;
 
procedure CloseFile(var fLog: TextFile);
begin
 
  Flush(fLog);
  System.CloseFile(fLog);
 
end;
 
 
function StrFile(const fStr, fFileName: String;
   const IsErase: Boolean = False): Boolean;
var
   fLog: TextFile;
begin
   Result := OpenFile(fLog, fFileName, IsErase);
   if Result then begin
      try
         Result := WriteLnStr(fLog, fStr);
      finally
         CloseFile(fLog);
      end;
   end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
@AttachConsole := GetProcAddress(GetModuleHandle('kernel32.dll'), 'AttachConsole');
 
 Wnd := FindWindow(nil, 'Command Prompt'); 
 
  GetWindowThreadProcessId(Wnd, @mProcessID); // получаем по хэндлу окна ИД процесса, чтобы прицепиться к консоли
 
if Wnd <> 0 then
   begin
     s := 'dir';
     for i := 1 to Length(s) do
     begin
       SendMessage(Wnd, WM_CHAR, Word(s[i]), 0);
    
        end;
   
    PostMessage(Wnd, WM_KEYDOWN, VK_RETURN, 0);
     sleep(1000);
   end;
 
 
 
if Wnd <> 0 then
   begin
     s := 'dir';
     for i := 1 to Length(s) do
     begin
       SendMessage(Wnd, WM_CHAR, Word(s[i]), 0);
      //  sleep(100);
        end;
     // Simulate Return Key.
    PostMessage(Wnd, WM_KEYDOWN, VK_RETURN, 0);
     sleep(100);
   end;
 
 if AttachConsole(mProcessID) then begin 
    Hcwnd:=GetStdHandle(STD_OUTPUT_HANDLE);  
    GetConsoleScreenBufferInfo (Hcwnd, BufInfo); 
   GetMem(lpCh, (BufInfo.dwMaximumWindowSize.Y*BufInfo.dwMaximumWindowSize.X));//Процедура GetMem пытается получить указанные в BufInfo.dwMaximumWindowSize.Y*BufInfo.dwMaximumWindowSize.X байт памяти
      try
      for i:=0 to BufInfo.dwMaximumWindowSize.Y+100 do begin
         Coord.X := 0;
         Coord.Y := i;
         ReadConsoleOutputCharacter(Hcwnd, lpCh, BufInfo.dwMaximumWindowSize.X, Coord, chRead);
 
         StrFile(lpCh, ChangeFileExt('C:\1', '.txt'), False); 
      end;
    finally
     FreeMem(lpCh, BufInfo.dwMaximumWindowSize.Y*BufInfo.dwMaximumWindowSize.X);
    end;
  end;
 end;
end.