{==============================================================================}
{ mkOpenIndex - Autorun an html file from a CD
{ Copyright (C) 2003 Chad Ullman                                               }
{                                                                              }
{ This program is free software; you can redistribute it and/or                }
{ modify it under the terms of the GNU General Public License                  }
{ as published by the Free Software Foundation; either version 2               }
{ of the License, or (at your option) any later version.                       }
{                                                                              }
{ This program is distributed in the hope that it will be useful,              }
{ but WITHOUT ANY WARRANTY; without even the implied warranty of               }
{ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the                }
{ GNU General Public License for more details.                                 }
{                                                                              }
{ You should have received a copy of the GNU General Public License            }
{ along with this program; if not, write to the Free Software                  }
{ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.  }
{==============================================================================}
program mkOpenIndex;

uses
  ShellAPI, SysUtils, Windows;

{$R *.res}

var
    IndexFile: String;
begin
    if FileExists('index.htm') then
        IndexFile := 'index.htm'
    else if FileExists('index.html') then
        IndexFile := 'index.html'
    else
        MessageBox(0,'Unable to locate the index document to autorun.' +#10#13 +
                   'Please browse to your CD-ROM drive and open either ' +
                   ' ''index.htm'' or ''index.html'' manually',
                   'Unable to autorun index file', mb_OK);
    ShellExecute(0, 'open',PChar(IndexFile),nil,nil, SW_SHOWNORMAL);
end.