정우민 께서 말씀하시기를...

> 델파이에서...

> 콘솔APP나 DOS 프로그램의 화면을 텍스트로 가져오는 방법 (캡쳐?)을

> 가르쳐 주세요

>

> 감사...



BufferString에 화면의 텍스트를 넣게했습니다.



program Project6;



{$APPTYPE CONSOLE}



uses

Windows,classes;



{$R *.RES}



var

sbi : TConsoleScreenBufferInfo;

i : integer;

lpNumberOfCharsRead: DWORD;

ReadCoord: TCoord;

BufferString: array[0..81] of char;

begin

FillChar( BufferString, Sizeof(BufferString), ' ');

try

Writeln('A Console Applicaiton');

Writeln('Press Enter To Clear The Screen');

GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE),

sbi);

ReadCoord.X := 0;

ReadCoord.y := 0;

for i := 0 to sbi.dwMaximumWindowSize.y do

begin

ReadConsoleOutputCharacter(GetStdHandle(STD_OUTPUT_HANDLE),

@BufferString,

80,

ReadCoord,

lpNumberOfCharsRead);

inc(ReadCoord.Y);

end;

Readln;

GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE),

sbi);

for i := 0 to sbi.dwSize.y do

writeln;

Writeln('Press Enter To End');

Readln;

finally

end;

end.

좀 무식한 방법을 쓰자면..



예를 들어



dir 명령으로 생긴 화면을 텍스트로 가져오려면...



dir > temp.txt



이렇게 리디렉션(???) 인가를 해서 화일로 저장한뒤 그 파일을 여시면 될것 같습니다. -.-;;



나머지 실행중인 프로그램의 화면을 캡쳐하는것은... 잘 모르겠네요~



정우민 께서 말씀하시기를...

> 델파이에서...

> 콘솔APP나 DOS 프로그램의 화면을 텍스트로 가져오는 방법 (캡쳐?)을

> 가르쳐 주세요

>

> 감사...