try ... except... end 문이 두개가 쓰였습니다..

앞에 쓴것 말고 뒤에 쓴것을 봐주시기 바랍니다.. 앞에꺼는 근본적으로 에러가

있습니다...왜인지를 아직 모름...ㅠ.ㅠ

버튼을 클릭하면 워드가 실행하는 건데요..

try ... except... end 예외처리를 위해서 쓰는거라고 알고 있는데..

맨밑에 WordApp.Visible := True;을

try ... except 사이에 집어 넣으면 에러가 생깁니다...

그런데... 밖으로 꺼내 놓으면.. 에러없이 잘 되거든요..

왜 그런지 이해가 안갑니다...





procedure TForm1.Button4Click(Sender: TObject);

var

WordApp : Variant ;

Result : HResult;

Unknown: IUnknown;

begin

Result := GetActiveObject(CLASS_wordApplication, nil, Unknown);

if (Result = 0) then begin // 이미 워드가 실행중인지를 체크

try

WordApp.visible := true;

except

Application.MessageBox('이미 실행중인 워드를 보일 수 없습니다.', '오류',MB_Ok);

end;

end //if문의 끝

else begin

try

WordApp := CreateOLEObject('Word.Application') ;

WordApp.Documents.Add ; //새문서 추가

// WordApp.Insert(Memo1.Lines.Text);

except

Application.MessageBox ( 'MS Word를 열 수 없습니다' + chr(13) +

'MS Word가 설치되어있는지 확인하십시요' , '알림' , MB_OK ) ;

end; //try 문의 끝

WordApp.Visible := True ;

end; //esle문의 끝

end;