델초 wrote:

> 안녕하세요. 델파이초보 입니다.

>

> shellexecute로 도스창을 띄어 프로그램을 실행한 후 완료가 되면

>

> 도스창을 닫아주는 방법을 알려주세요.

>

> 덧붙여... dosprompt 등록정보에서 프로그램 탭에 있는 종료시 닫기를 체크하는거 하고는 무관하죠?



아래는 특정 디렉토리로 이동한 도스창을 오픈하는 간단한

예제입니다. 자세히 보시면 원하시는 내용이 들어있습니다.

그럼~ 즐거운 프로그래밍 하시길~



procedure TForm1.Button1Click(Sender: TObject);

var

Dir: String;

begin

Dir := '';

if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then

begin

// /k 파라미터는 문자열로 지정한 명령 실행 후 계속합니다

// /c 파라미터는 문자열로 지정한 명령 실행 후 되돌아갑니다

WinExec(PChar('command.com /k cd '+Dir), SW_SHOWNORMAL);



// Windows NT 의 경우는 아래처럼 명령어 해석기를 cmd.exe 로 바꾸어야 합니다

// WinExec(PChar('cmd.exe /k cd '+Dir), SW_SHOWNORMAL);

end;

end;

제가 질문을 잘못드렸는지 아니면 제가 님의 답변을 잘 이해못하는것 같습니다.



그대로 했더니 box가 하나뜨고 오케이 했더니 프로그램이 실행되고 끝나더군요.



제가 원하는건 도스용프로그램을 실행하면 도스창이 뜨면서 실행과정이 보이고,



그 후 그프로그램이 끝나면 떠있던 도스창이 자동으로 닫히게 하고 싶은겁니다.



그것도 못 알아듣냐 하지 마시고 이 델초의 질문에 알기쉽게 답변해 주시면 감사하겠습니다.

델초 wrote:

> 제가 질문을 잘못드렸는지 아니면 제가 님의 답변을 잘 이해못하는것 같습니다.

>

> 그대로 했더니 box가 하나뜨고 오케이 했더니 프로그램이 실행되고 끝나더군요.

>

> 제가 원하는건 도스용프로그램을 실행하면 도스창이 뜨면서 실행과정이 보이고,

>

> 그 후 그프로그램이 끝나면 떠있던 도스창이 자동으로 닫히게 하고 싶은겁니다.

>

> 그것도 못 알아듣냐 하지 마시고 이 델초의 질문에 알기쉽게 답변해 주시면 감사하겠습니다.







도스창에서 무엇을 실행시키시겠다는 것인지 잘 모르겠군요 ^^

답변에도 적혀 있지만, command.com 에 /c 옵션을 주면 자동으로 도스창이 닫힙니다.

그리고, /k 옵션을 주면 도스창이 닫히지 않고 그대로 있죠.

예를 들어 Ping 테스트를 도스창에서 하고 저절로 닫히게 하려면

아래처럼 쓰시면 됩니다.



WinExec(PChar('command.com /c Ping 127.0.0.1'), SW_SHOWNORMAL);



그럼, 즐거운 프로그래밍 하세요~