살아있는 의문보호 wrote:

> 안녕하세요

> 화면에 버튼을 누르면 익스플로가 실행되면서 특정URL로 이동하고 싶거든요...!!!

> 예를 들어서 Button1를 클릭하면 www.delphi.co.kr 사이트로 바로이동하게

> 하고 싶거든요!!!

>

> 고수님들의 가르침을 기다리겠습니다.

>

> 감사합니다...항상건강하시고 늘 행복하세요...!!!



안녕하세요.. 술친굽니다.

제가 쓰는 방법은 어떨까하고 올려봅니다.



procedure TForm1.Button1Click(Sender: TObject);

var

Addr : String;

begin

Addr := 'www.delphi.co.kr'; //Addr 은 가고자하는 주소입니다.

ShellExecute(GetDesktopWindow, 'open', PChar(Addr), nil, nil,

SW_SHOWNORMAL);

end;



한가지 uses 절에 Shellapi 를 추가 하시기 바랍니다.



고수님들의 조언을 기다립니다.

술친구였슴돠...

안녕하세요 하얀까마귀 입니다.

그런건 그냥 OLE로 만드는게 가장 간단할 겁니다. 뭐 익스플로어의 위치를 가져와서

실행한다음에 주소에디트를 콘트롤 해도 되긴 하지만.......

전에 제가 비슷한걸 만든적이 있어서 소스 드릴게요...

그럼.. 해보세요..

procedure TfrmAboutBox.lb_Land21Click(Sender: TObject);

const

csOLEObjName = 'InternetExplorer.Application';

var

IE : Variant;

begin

// 인터넷 익스플로어를 실행시킨다.

if( VarIsEmpty( IE ) )then

begin

IE := CreateOleObject( csOLEObjName );

IE.Navigate( '여기에 원하시는 주소를 적으세요 ' );

IE.Visible := true;

end;

end;

혹시 모르실까봐.....

uses 절에 OLEAuto를 넣어주셔야 합니다...

아마 잘될겁니다.

그럼 즐거운 시간 되세요..

- 하얀까마귀 -





살아있는 의문보호 wrote:

> 안녕하세요

> 화면에 버튼을 누르면 익스플로가 실행되면서 특정URL로 이동하고 싶거든요...!!!

> 예를 들어서 Button1를 클릭하면 www.delphi.co.kr 사이트로 바로이동하게

> 하고 싶거든요!!!

>

> 고수님들의 가르침을 기다리겠습니다.

>

> 감사합니다...항상건강하시고 늘 행복하세요...!!!

다시한번 질문드립니다.



익스플로어를 실행후 (물론 전화접속 상태) 주소에디트를 콘트롤하고자하면 어떻게

해야 되나여?

다시한번 질문드립니다.



익스플로어를 실행후 (물론 전화접속 상태) 주소에디트를 콘트롤하고자하면 어떻게

해야 되나여?