ShellExecute 함수를 써서 엑셀 화일을 불러오고 있는데요..

근데 이것이 실행이 될때도 있고 안될때도 있어서요..

실행이 안되는 경우에는 그 이유를 잘 모르겠더라구요..

그래서 일단은 실행에 실패를 하면 실패했다는 메시지를 띄우려고 하는데 그것조차 안되는것 같더라구요..

실행이 안되는 경우에는 단추를 눌러도 아무런 변화가 없고, 어떨때는 엑셀이 실행이 되고 에러처리라도 된다면 좋을텐데...

다음과 같은 방식으로 해보았거든요..



procedure Form.BitBtn8Click(Sender: TObject);

var opendir,openFile : String;//경로명,파일명

begin

opendir := ''+ 컴퓨터명 +''+ 경로명 ;

openFile := 파일명 + '.xls';

TRY

ShellExecute(Handle,'open',Pchar(openFile),'',PChar(opendir),Sw_Shownormal);

except

showmsg('Excel 실행에 실패했습니다');

end;

end;



위에서 컴퓨터명이 'A'(약칭) 일때는 경로명 'CHNC', 화일명'A'이고

컴퓨터명이 'B'(약칭)일때는 경로명'CTEMP',화일명'A'입니다.

근데 A컴퓨터의 파일은 읽어오고 B컴퓨터의 화일은 못읽어오더라구요..

에러메시지도 없고 그냥 아무 이벤트도 발생하지 않더라구요..

이벤트에 실패했다는 메시지도 없구..

어떻게 에러메시지라도 띄우는 방법 없을까요?

제발 꼭좀...