MS-DOS para texto

Question

Algu�m sabe se tem como pegar o conte�do de uma janela do tipo MS-DOS e transform�-lo para texto? Parece loucura, n�?! Mas � realmente o que preciso... agrade�o a aten��o!Pedro...

Aroldo Zanela · Answer

Colega,Encontrei este c�digo na Web mas n�o funcionou com o W2K. Se tiver o W98, fa�a um teste:[code:1:f7731a724f]var  HCon: THandle;  CSBI: TConsoleScreenBufferInfo;  Line: String;  Lines: TStringList;  i: Integer;  StartPos: TCoord;  BytesRead: Cardinal;begin  HCon := GetStdHandle(STD_OUTPUT_HANDLE);  GetConsoleScreenBufferInfo(HCon, CSBI);  Lines := TStringList.Create;  try    StartPos.X := 0;    for i := 0 to CSBI.dwSize.Y - 1 do begin      SetLength(Line, CSBI.dwSize.X);      StartPos.Y := i;      ReadConsoleOutputCharacter(HCon, PChar(Line), CSBI.dwSize.X+1,StartPos, BytesRead);      Lines.Add(Line);    end;    Clipboard.AsText := Lines.Text;  finally    Lines.Free;  end;end;[/code:1:f7731a724f]...

Nildo · Answer

Aroldo, essa sua fun��o funciona assim:Se voc� estiver fazendo uma aplica��o do tipo Console, ela vai copiar para a area de transferencia o conteudo de sua janela Console....

Cebikyn · Answer

Tem um componente, o TDOSCommand, que n�o s� pega o conte�do da janela, como tb envia texto � mesma, se necess�rio. O componente (com c�digo fonte) pode ser obtido em:

[b:68534a43db]TDOSCommand[/b:68534a43db]
http://maxxdelphisite.free.fr/doscmd.htm

O texto, na forma de string, � recebido no evento OnNewLine do componente.

Peununes · Answer

Deu o seguinte erro:[Error] Unit1.pas(48): Undeclared identifier: �Clipboard�[Fatal Error] Project2.dpr(5): Could not compile used unit �Unit1.pas�Claro, n�o est� reconhecendo o argumento �Clipboard�. Ser� que tem que ser escrito de uma outra forma? Tentei mandar o texto para um objeto Memo, mas n�o funcionou...ObrigadoPedro...

F�rum MS-DOS para texto #204497