아래 소스 코드 보신 분들 많으실겁니다.

도스 프로그램을 실행시키고, 그 출력 결과를 pipe를 통해 가져오는 프로그램입니다.

그런데 윈98 같은데서 실행시키면 잘 되는데, 2000에서 실행시키면 잘 동작 안합니다.

도스 프로그램도 문제없이 실행되고, 도스창 화면에도 출력 결과가 안찍히는데(pipe로 redirection되서요), pipe에 출력 결과가 들어가지를 않습니다.

결론적으로 2000에서 작동안합니다.-_-

왜 그런지 아시는 분 답변 부탁드립니다.



procedure RunDosCommand(Command : string; Output : TStrings);

var

hReadPipe : THandle;

hWritePipe : THandle;

SI : TStartUpInfo;

PI : TProcessInformation;

SA : TSecurityAttributes;

SD : TSecurityDescriptor;

BytesRead : DWORD;

Dest : array[0..1023] of char;

CmdLine : array[0..512] of char;

TmpList : TStringList;

S, Param : string;

Avail, ExitCode, wrResult : DWORD;



begin { Dos Application }

if UsingWinNT then

begin

InitializeSecurityDescriptor(@SD, SECURITY_DESCRIPTOR_REVISION);

SetSecurityDescriptorDacl(@SD, True, nil, False);

SA.nLength := SizeOf(SA);

SA.lpSecurityDescriptor := @SD;

SA.bInheritHandle := True;

CreatePipe(hReadPipe, hWritePipe, @SA, 1024);

end else

CreatePipe(hReadPipe, hWritePipe, nil, 1024);

try

Screen.Cursor := crHourglass; { STARTUPINFO를 설정한다. }

FillChar(SI, SizeOf(SI), 0);

SI.cb := SizeOf(TStartUpInfo);

SI.wShowWindow := SW_HIDE;

SI.dwFlags := STARTF_USESHOWWINDOW; { STARTF_USESTDHANDLES 를 빼면 PIPE로 입출력이 Redirect 되지 않는다. }

SI.dwFlags := SI.dwFlags or STARTF_USESTDHANDLES;

SI.hStdOutput := hWritePipe;

SI.hStdError := hWritePipe;

StrPCopy(CmdLine, Command); { Process를 생성한다. }

if CreateProcess(nil, CmdLine, nil, nil, True, NORMAL_PRIORITY_CLASS, nil, nil, SI, PI) then

begin

ExitCode := 0;

while ExitCode = 0 do

begin

wrResult := WaitForSingleObject(PI.hProcess, 500);

{ Pipe에 출력된 내용이 있는 지 조사한다. }

if PeekNamedPipe(hReadPipe, nil, 0, nil, @Avail, nil) then

begin

if Avail > 0 then

begin

{ Redirect된 화면 내용을 출력 윈도에 내보낸다. }

TmpList := TStringList.Create;

try

FillChar(Dest, SizeOf(Dest), 0);

ReadFile(hReadPipe, Dest, Avail, BytesRead, nil);

TmpList.Text := StrPas(Dest);

Output.Lines.AddStrings(TmpList);

finally

TmpList.Free;

end;

end;

end;

{ WAIT_TIMEOUT이 아니면 루프를 마친다. }

if wrResult <> WAIT_TIMEOUT then

ExitCode := 1;

end;

{ 실행이 끝났다.. }

GetExitCodeProcess(PI.hProcess, ExitCode);

CloseHandle(PI.hProcess);

CloseHandle(PI.hThread);

end;

finally

CloseHandle(hReadPipe);

CloseHandle(hWritePipe);

Screen.Cursor := crDefault;

end;

end;