하는 방법을 알려주십시오.
클릭해서 폼을 닫는것은 해결을 했는데..
클릭했을 때에 새로운 익스플로어를 실행시켜서 새로운 창에 화면을 보여주어야
하는데.. 으... 좀만 도와주세여...
그럼, 이만...
아.. 그리고 버튼을 클릭했을 때에 종료시키는 것은 다음과 같이 해결했습니다.
procedure TFRunApp03.BtnExitClick(Sender: TObject);
var
IExplorer : THandle;
begin
IExplorer := FindWindow('IEFrame', nil);
If IExplorer <> 0 Then
SendMessage(IExplorer, WM_SYSCOMMAND, SC_CLOSE, 0);
end;
//
#define IDS_SCSIZE SC_SIZE
#define IDS_SCMOVE SC_MOVE
#define IDS_SCMINIMIZE SC_MINIMIZE
#define IDS_SCMAXIMIZE SC_MAXIMIZE
#define IDS_SCCLOSE SC_CLOSE
#define IDS_SCRESTORE SC_RESTORE
#define IDS_SCTASKLIST SC_TASKLIST
>
> 하는 방법을 알려주십시오.
>
> 클릭해서 폼을 닫는것은 해결을 했는데..
>
> 클릭했을 때에 새로운 익스플로어를 실행시켜서 새로운 창에 화면을 보여주어야
>
> 하는데.. 으... 좀만 도와주세여...
>
> 그럼, 이만...
>
> 아.. 그리고 버튼을 클릭했을 때에 종료시키는 것은 다음과 같이 해결했습니다.
>
> procedure TFRunApp03.BtnExitClick(Sender: TObject);
> var
> IExplorer : THandle;
> begin
> IExplorer := FindWindow('IEFrame', nil);
> If IExplorer <> 0 Then
> SendMessage(IExplorer, WM_SYSCOMMAND, SC_CLOSE, 0);
> end;
>
> //
>
> #define IDS_SCSIZE SC_SIZE
> #define IDS_SCMOVE SC_MOVE
> #define IDS_SCMINIMIZE SC_MINIMIZE
> #define IDS_SCMAXIMIZE SC_MAXIMIZE
> #define IDS_SCCLOSE SC_CLOSE
> #define IDS_SCRESTORE SC_RESTORE
> #define IDS_SCTASKLIST SC_TASKLIST
방기남님 하이여~~~~~~~
델세상(http://www.freechal.com/delphiworld)에 자주 놀러 오셔요~ ^^
마일리지좀 높이게요 ^^
혹시 이거 아닌가 시퍼서 글 남겨요~
Uses Urlmon;
일반 html을 호출하는 경우
HlinkNavigateString(nil,'http://www.freechal.com/delphiworld');
ActiveForm을 포함한 html을 호출하는 경우
HlinkNavigateString(Comobject,'http://www.freechal.com/delphiworld');
타켓 페이지를 지정하여 호출하는 경우
HlinkNavigateToString('http://www.freechal.com/delphiworld',nil,'detail',Comobject,nil,nil,0,0);
물론 새창으로 뜹니다용~ ^^
수고하셔요.. 방기남님...