[파워빌더] 크롬 뛰우기...
/*********************************************
크롬 뛰우기...
***********************************************/
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)
크롬 뛰우기...
***********************************************/
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)