'------------------------------------- 'Author: Jason Buck 'Email: jbuck@how2tv.com 'Added: 12-July-2000 '------------------------------------- 'Program: LAUNCH.ZIP '------------------------------------- 'Description: I have created an autorun.inf 'that launches my vb program which in turn 'launches an HTML file when my CD is run. ' 'The thing is that it looks like the HTML 'file was autorun instead of the VB.exe. ' '-------------------------------------- 'Note: You must first compile the included 'projects to try this sample. Save them as 'LaunchDefault.exe or LaunchIndex.exe. '---------------------------------------   Place the AUTORUN.INF the LaunchDefault.exe or LaunchIndex.exe the Default.htm or Index.htm (depending on which exe is used) in the root of the CD.   This will cause your initial HTM page to autoplay, like launching a CD based program.   The Launch______.exe will run, open your HTM file and then Launch_____.exe will then close itself. The end user never even notices the program running.   This program is provide "as is" with no technical support of any kind.   Program was written using VB 6 The source is as follows:   '--------------FORM1-----------------   Option Explicit Private Sub Form_Load() Navigate Me, "index.htm"     Dim app_path As String   app_path = App.Path If Right$(app_path, 1) <> "\" Then _ app_path = app_path & "\"     End End Sub   '-------------END FORM1--------------   '-------------MODULE1---------------- Option Explicit   Public Const SW_SHOW = 1   '----------------Put this next block all on one line-------------- Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long '----------------End one line   ' Invoke the application associated with a ' document type.   Public Sub Navigate(frm As Form, ByVal document_name As String) ShellExecute frm.hwnd, "open", document_name, "", "", SW_SHOW End Sub   '---------------End Module1----------------------     '------------------------------------- 'Burt Abreu 'http://www.VBExplorer.com '-------------------------------------   Downloads In IE right-click and select 'Save Target As...' or in Netscape right-click and select 'Save Link As...'    View Plain Text  Download Demo Project  Not Available