<ole>
Jeg har lavet et par præsentationer af skoleprojekter for min datter - i form af HTML-sider. Der har jeg brugt den MS-teknologi, der hedder HyperText Applications (HTA) ... en special-instans af IE, der ikke ligner en browser, men en alm. Windows applikation.
Start-filen kan f.eks. se sådan ud (gem den som 'start.hta' og dobbeltklik på den):
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"
http://www.w3.org/TR/html4/loose.dtd"><html>
<head>
<script type="text/JavaScript">
window.resizeTo(screen.availWidth,screen.availHeight);
window.moveTo(0,0);
</script>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Sascha's og Adam's Præsentation</title>
<HTA:APPLICATION ID="oMyApp"
APPLICATIONNAME="Presentation"
BORDER="thick"
CAPTION="yes"
ICON="hca.ico"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="yes"
SYSMENU="yes"
WINDOWSTATE="maximize"
SELECTION="no"
NAVIGABLE="yes"
CONTEXTMENU="no">
<style type="text/css">
body, html {
height: 100%;
margin: 0px;
background-color: black;
}
</style>
</head>
<body scroll="no">
<table style="width:100%;height:100%" cellspacing="0" cellpadding="0" border="0">
<tr>
<td style="text-align:center;vertical-align:middle">
<a href="data/side1.html"><img src="data/gfx/splash.gif" width="800" height="550" alt="" title="Klik for at gå videre ..." border="0"></a>
</td>
</tr>
</table>
</body>
</html>
Filen blev så brændt ned på en CD ved siden af en mappe, der hed 'data', hvori HTML-filerne lå. I den lå også en mappe, der hed 'gfx' med grafikken til 'sitet'. I roden af CD'en lå også en ikon-fil 'hca.ico'.
I roden lå endnu en fil 'autorun.inf´, hvori stod:
[autorun]
Open=autorun.exe start.hta
Icon=hca.ico
Label=Hvad Fatter gør...
- som dels sætter ikon på CD'en og giver den titlen 'Hvad fatter gør...' - og dels kalder filen 'autorun.exe', som også er brændt ned i roden på CD'en.
Det fungerer perfekt, hvis man altså har filen. 'autorun.exe'. Jeg kan sende den til dig, hvis du skriver din mail-adresse - men hvis du selv kan kompillere VB, kan du lave et VB-projekt med en form med følgende kode:
Option Explicit
Private Sub Form_Load()
Dim Shell As Object
Dim cmd As String
cmd = Command
If (cmd = "") Then cmd = "\start.hta"
Set Shell = CreateObject("Shell.Application")
Shell.open App.Path & cmd
Set Shell = Nothing
Unload Me
End Sub
- og kompillere den som 'autorun.exe'
/mvh
</bole>