launch url

Shari shari at gypsyware.com
Wed Apr 23 18:26:37 CDT 2008


>Have you tried sending a shell command?

Here is the full Windows code that used to work:

   else if (the platform) is "Win32" then
     set the hideConsoleWindows to true
     put empty into theTitle
     if "NT" is in the systemVersion then
       set the shellCommand to "cmd.exe"
       put quote & quote into theTitle
     end if
     get shell("start" && theTitle && quote & tURL & quote)
     if the result is empty then
       put empty into tUrl
       exit goUrl # success
     else # failed, try again
       local intApp
       local EXE_off
       put 
queryRegistry("hkey_local_machine\software\classes\http\shell\open\command\") 
into intApp
       if char 1 of intApp is quote then clear char 1 of intApp  # 
strip leading quote
       put offset("EXE",intApp) into EXE_off
       put char 1 to (EXE_off+2) of intApp into intApp
       launch tURL with intApp
       if the result is empty then
         put empty into tUrl
         exit goUrl # success
       else # failed, try again
         put word 1 to -2 of 
queryRegistry("HKEY_LOCAL_MACHINE\Software\Classes\http\shell\open\command\") 
into tBrowserPath
         launch (tBrowserPath && tURL)
         if the result is empty then
           put empty into tUrl
           exit goUrl # success
         end if
       end if
     end if


-- 
   Humorous sports t-shirts
   http://www.villagetshirts.com
  WlND0WS and MAClNT0SH shareware games
  http://www.gypsyware.com


More information about the metacard mailing list