저도 디폴트 브라우저 띄울때 그렇게 사용하는데
안될때도 있나 보군요...
아래는 IE 가 설치되어 있을때 IE로 띄우는 건데
이걸로 함 해보세요...
procedure ExecuteBrowserIE(aUrl :String);
const
csOLEObjName = 'InternetExplorer.Application';
var
IE : Variant;
WinHanlde : HWnd;
begin
if VarIsEmpty( IE ) then
begin
IE := CreateOleObject( csOLEObjName );
IE.Navigate2( aURL );
IE.Visible := true;
WinHanlde := IE.HWnd;
SetForegroundWindow( WinHanlde );
end
else
begin
WinHanlde := FindWIndow( 'IEFrame', nil );
if ( 0 <> WinHanlde ) then
begin
IE.Navigate( aURL );
SetForegroundWindow( WinHanlde );
end
else
begin
ShowMessage('Internet Explorer를 찾을 수 없습니다.' + #13#10 +
'Internet Explorer가 올바르게 설치되어 있는지 확인하세요'
);
end;
end;
end;
이승근 님이 쓰신 글 :
: 델파이 6을 사용중에 있는데 예전에는 아래와 같이 해서 프로그램에서 홈페이지를 직접 열었었는데 언제부턴가 열리지를 않네요..
:
: uses ShellAPI;
:
: var
: FFileName : string;
:
: begin
: FFileName := ' http://www.naver.com';
: ShellExecute(0, 'open', PChar(FFileName), nil, nil, SW_SHOWNORMAL);
: end;
:
: 이유가 뭘까요???
:
: 혹시 다른 방법으로 홈페이지를 열수있는 방법이 있나요??
|