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

[maleziv]

Доброго времени суток.
Существует проблема: необходимо связаться с консолью по ее идентификатору. Затем необходимо по очереди передать в консоль команды и получить результат выполнения этих команды в текстовый файл.

В коде снизу я захватываю консоль по ее идентификатору и в цикле передаю команду dir (экспериментирую на cmd ), выполнение команды отображается в консоли, затем результат выполнения записываю в файл. Но появилась проблема совместимости: на Win XP работает как часы, а вот на Win 2000 спотыкается на этой строчке AttachConsole(mProcessID).
Необходимо реализовать для Win 2000.

P.S: Консоль (стороннего производителя, а не cmd и подобных ) всегда запущена, запускать программным путем ее не нужно: CreateProcess (nil,PChar(CmdLine),@Security,@Secu rity,true,NORMAL_PRIORITY_CLASS,nil ,nil,start,ProcessInfo) – использование отпадает, так как ее запускают (delphiworld.narod.ru/base/console_to_memo.html).
Я так думаю нужно, как то совместить технологию Pipe и поиска идентификатора консоли. В инсети такой реализации не нашел.
Пожалуйста, подскажите, как это сделать?

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.

[xoodoo]

http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

Requirements

Minimum supported client
Windows XP

Minimum supported server
Windows Server 2003

[GunSmoker]

Функция AttachConsole не существует в Windows 2000.

[maleziv]

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

http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

Requirements

Minimum supported client
Windows XP

Minimum supported server
Windows Server 2003

Вы на библиотеку Kernel32.dll намекаете? В Win 2000 она присутствует.
Подменить ее на более современную не представляется возможным. Такое вот условие...

[maleziv]

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

Функция AttachConsole не существует в Windows 2000.

Я это и говорю, нужно как то вывернуться осуществить поиск по хендлу уже запущенной консоли и перенаправить вывод в файл.

[GunSmoker]

Внедрение в процесс + IPC + DuplicateHandle.

[maleziv]

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

Внедрение в процесс + IPC + DuplicateHandle.

уважаемый можно примерчик

[xoodoo]

> на библиотеку Kernel32.dll намекаете?

Я ни на что не намекаю.
Есть официальный первоисточник - в нем черным по белому написаны требования.

> В Win 2000 она присутствует.

Да неужели ? А я и не знал.

[maleziv]

Лучше дайте дельный совет, как решить данную проблему, в инете тема не раскрыта.

[GunSmoker]

Совет дали. Писать код за тебя - увольте.