¿Cómo utilizar Delphi para escribir un programa exe que mostrará automáticamente una página web?

ShellAPI

{$R *. dfm}

Procedimiento TForm1.btn1Click(remitente: al objeto);

Inicio

ShellExecute(Handle, ' open ', '/cf.aspx? action = adget ampad_class = 8 amp nombre de usuario = linuxgoat ampdelaytime = 0 amp timespace = 0 ampputtime = ampputsiteclassid = ',

nil,nil,sw_shownormal);

Fin;

La página web abierta se ve así.

Función WriteCookie (cookieName, cookieValue, vencimiento){ var expDate = new Date(); if(expiry){ expdate .settime(expdate. gettime() cookie = cookieName " = "). escape(cookieValue) "ruta =/expires = " expdate . togmtstring(); } else { document . cookieName " = " escape(cookieValue); = nombre " = "; si (documento. cookie. longitud> 0) {desplazamiento = índice de documento de (búsqueda); si (desplazamiento! = -1) {desplazamiento = longitud de búsqueda; índice de (";", desplazamiento); si (fin = -1) fin = longitud del documento; cookieValue = unescape(documento. cookie. subcadena (desplazamiento, fin)) } } return cookieValue; (navegador. cookieEnabled)? verdadero: falso si (tipo de navegador. cookieenabled == "indefinido" amp; amp! cookieEnabled) { document . cookie =" prueba cookie " cookieEnabled = (document . cookie == " prueba cookie ")? verdadero: documento falso. cookie = " " } var primer espectáculo; var CookieOkif(cookieEnabled == verdadero){ CookieOk = 1; var CFWztgShowCookie = leer cookie(" cfwztgshow 0 cookie "); tiempo = 1000 * 60 * 1440; WriteCookie('CFWztgShow0Cookie ', "1", tiempo libre); primer show = 1; else { primer show = 0;} else { CookieOk = 0; Ly =if (ventana.padre!= ventana. self){ Ly = referente del documento } else { Ly = documento.ubicación} Ly = escape (Ly var WebWidthvar Web);

Heightvar WebTopvar WebLeftif(documento. elemento del documento. ancho del cliente){ ancho de la web = documento. ancho del documento del cliente; altura del documento = elemento del documento. ancho del cliente; altura de la web = cuerpo del documento. altura del cliente; = navegador, agente de usuario. índice de ('MSIE') gt; { WebTop = ventana.screenYWebLeft = ventana.screenX} documento .write(');