프로그램을 실행시키고 프로그램이 종료될때까지 기다리는 함수 입니다.

참고하세요.



function TMainForm.AsyncShell(FilePath, CmdLine:string) : Boolean;

var

StartInfo : TStartupInfo;

ProcessInfo : TProcessInformation;

bCreatedOk : Boolean;

IsTerminated : Integer;

begin

FillChar( StartInfo, Sizeof(TStartupInfo), #0);

FillChar( ProcessInfo, Sizeof(TProcessInformation), #0);



StartInfo.cb := sizeof(StartInfo);

StartInfo.dwFlags := STARTF_USESTDHANDLES + STARTF_FORCEONFEEDBACK;



// 매개변수가 있을 경우와 없을 경우를 달리호출한다.

if CmdLine <> '' then

bCreatedOk := CreateProcess(PChar(FilePath), PChar(CmdLine),

nil, nil, false,

DETACHED_PROCESS + HIGH_PRIORITY_CLASS,

nil, nil, StartInfo, ProcessInfo )

else

bCreatedOk := CreateProcess(nil, PChar(FilePath),

nil, nil, false,

DETACHED_PROCESS + HIGH_PRIORITY_CLASS,

nil, nil, StartInfo, ProcessInfo );

if bCreatedOk then begin

while True do begin

GetExitCodeProcess(ProcessInfo.hProcess, IsTerminated);

if (IsTerminated = 0) or (IsTerminated = 1) then Break;

Application.ProcessMessages;

end;

end;

CloseHandle(ProcessInfo.hProcess);



Result := True;

end;





김지건 wrote:

> 실행 중인 프로그램이 종료될때까지 기다릴 때 쓸려고 그러는데

>

> 실제로 써 보니 'Undeclered identifier'라고 나오는 군요.

>

> 제가 찾을 수 있는 곳은 다 찾아보았으나....

>

> 어떻게 쓰는지 도저히 모르겠군요..

>

> 누구 아시는 분 계시면 ....

>

> 관심을 가져 주셔서 감사합니다...

>

> 그럼..

자꾸 여쭤 보아서 정말 죄송한데요??



전 제가 만든 프로그램이 실행중에 "TalNet.exe"라를 프로그램이 종료되는 것

을 막고 싶거든요...



TalNet(새롬과 같은 상용프로그램)이 죽을 때 나오는 윈도우 메시지를 가로채

고 경고창을 보이고 싶은데요...



여러방법으로 시도를 해 보았지만 잘 되진 않는군요...



고수님께서 가르쳐 주시면 내공증진(?)에 많은 도움이 될껍니다...



그리고 관심을 가지고 가르쳐 주셔서 정말 감사합니다...



그럼 가르침을 ...