홈 · 개발 참고자료

개발 참고자료

[파워빌더] 크롬 뛰우기...

작성자
관리자
작성일
2022-06-22
조회
11211
분류
파워빌더
/*********************************************
크롬 뛰우기...
***********************************************/

string ls_cmd
integer i_rtn
i_rtn = RegistryGet( "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\ChromeHTML\shell\open\command", "", RegString!, ls_cmd)
IF i_rtn > 0 Then
// 크롬 확인 성공.
int iPos
iPos = Pos(UPPER(ls_cmd), UPPER("%1"))
DO WHILE(iPos > 0)
ls_cmd = Replace(ls_cmd, iPos, Len("%1"), ls_target)
iPos = Pos(UPPER(ls_cmd), UPPER("%1"), iPos+Len(ls_target))
LOOP
run(ls_cmd)
RETURN
END IF

/*********************************************
IE 뛰우기...
***********************************************/

string ls_url

ls_url = "http://mnpsystem.cafe24.com?asd=123"

environment env
double sx, sy

// 먼저 윈도우의 환경을 알아낸다.
If GetEnvironment(env) = 1 Then
sx = (env.screenwidth - 720) / 2
sy = (env.screenheight - 650) / 2
else
sx = (1024 - 720) / 2
sy = (760 - 650) / 2
end if

OLEObject IE

IE = CREATE OLEObject
IE.ConnectToNewObject("InternetExplorer.Application")

IE.left=sx
IE.top=sy
IE.width=800
IE.height=600
IE.menubar=0
IE.toolbar=0
IE.statusBar=0
IE.navigate(ls_url)
IE.visible=1

SetForegroundWindow(IE.HWND)